DICK  SMITH 

VZ200 

Personal 

Colour  Computer 

THE  GIANT  BOOK 

OF  GAMES 


THE  GIANT  BOOK 
OF 

VZ20D  GAMES 


Tin  Ha rtn a  1 1 
and 

Gian  Pringle 


i 


First  publlahad  In  Auatratla  by  i 


Dick  Sslth  Henoganant  Pty*  Ltd., 

PO  Bo*  321, 

North  Rydt,  NSW,  2113 
Cupyr  Igtit  (cl  Ksrtnsll  and  PrlngLOp  1983 
First  printings  £spte»bor,  1983 
ISBN  0  849772  20  9 
Dick  Cal  1 h  Catalogue  Nat  E  7210 

Tha  pregrsss  In  this  book  Novo  boon  Included  for 
thnir  Instructions!  value,  Tha  y  han  boon  toatod 
■1th  Coro  but  ore  not  guaranteed  for  any  portiaular 
purpcaa,  Hli  1  L a  t  ovary  oarn  ha*  baea  tskon  tha 
publishers  pan  hot  bo  tiaLd  rsoponolblt  for  any 

running  slstsksa  which  soy  occur. 

ALL  RIGHTS  HtSEPVCO 

No  ua*  shatuDdabr  ssy  bo  soda  of  tha  contents  of 
this  voLuds  -  progrssa  and/or  ts*t  -  sicapt  for 
private  study  by  tha  purchaosr  of  this  voiusa, 
without  tha  prior  written  parslsalob  Of  tho 

copyright  holder, 

Rsproduc t Ion  In  any  Torn  or  for  any  purpoea  la 

f orb Iddsn, 

Typaeotting  scid  ertsork  by  Intorfsoa  Pub  l  lest  1  om , 
Lovsl  25,  Nauru  Hout*.  60  CaUlM  Street,  Nolbcurnn, 
3000+  Victoria,  AuoiroLI* 


Cover  ortaerk  by  Geoff  Cullos 


INDEX 

Introduction.  . .  ■  .  . . .1 

BOARD  CAKES 

Introduction.. . 7 

GOHOKU . 13 

FOUR  IN  A  ROW. . . . . . , . 10 

CHECKERS. .  ..... _ _ _  .  .34 

KNJGHTSBftl.DGE.  . . 30 

ADVENTURE 

Introduction.  .,..,.37 

STRONGHOLD  OF  THE  OWARVEN  LOROS,. 44 

THE  DUKE  OF  DRAGONFEAR . 50 

SIMULATIONS 

Introduction. ............  ....... <61 

MISTRESS  OF  XENOPHOBIA . ..63 

RURAL  PURSUITS.  .  .  .  . . . .  .  68 

CHAIRMAN  OF  THE  BOARD . 70 

DICE  GAMES 

Introduction/ dice  routine. .......76 

CHIMIN  DE  COMPUTER, , .  .  .  .  . . ..81 

SIVEN/E LEVER.  . . 85 

NO  SWEAT . B7 

□  NE-AKD-TWENTY,  .  . . 90 

SNAKES  EYES, . . . 93 

UNDER 1  N  'OVER  . . 9? 


1  i 1 


ARTIFICIAL  INTELLIGENCE 


Introduction... . .  ....  .103 

ELECTRONIC  BRAIN . . . ,...105 

AMANUENSIS . .111 

JUST  FOR  FUN 

Int  roduc  t ion/ PIANO.  .  . . .  ,  .117 

FASTER  . . .119 

INNER  SPRING . ,120 

ROBOT  H  I  NEFIELO  »  .  . . 122 

Fun  *1th  your  printer 

CELESTIA . 126 

BILLBOARD . 133 

SPACE  6ANES 

MOONLANOER . . . 199 

HYFERWAR . 1  41 

BRAIN  BANES 

Introduction . ......149 

IDAHO  STARS. . . . .150 

EXECUTIONER,  . . .153 

CUBIC . 156 

MUMBLE  MARBLE. ......... _ .....159 

CYCLOTRON  . . .  1  62 

FLIPPER . . . . .  .165 

CREATING  YOUR  OWN  GAMES,.,. . 167 

BOOKS  TO  READ . 177 


INTRODUCTION 


INTRODUCTION 

Oncts  upon  a  time  It  ias  not  eea y  to  write  and  play 
garrec  with  computers*  Back  in  thn  din,  dark  peat. 
It  could  coat  you  $90  to  $100  m  hoti  r  juRt  to  rent 
access  to  t j  time-shared  mainframe  via  a  terminal. 
And  the  only  ouput  you  had  nee  on  the  printout  of  a 
n  □  1  a  y  r  hard  to  read  teleprinter*  Think  what  those 
rec tr 1 c t i ona  would  have  done  to  your  currant  pattern 
of  spending  hour*  lovingly  debugging,,  and  improving, 
your  latest  masterpiece. 

Wii,  fortunate  l  y ,  do  not  hoys  to  suffer  euch  medieval 
conditions.  The  luxury  of  having  a  computer  of  your 
own,  driving  a  TV  screen,  with  unrestricted  access 
to  tht  machine*  allows  you  to  work  for  as  Long  ne 
you  like  creating  games  arid  other  programs. 

In  this  hook,  you'll  find  a  collection  of  our 
favorite  computer  gomes.  We  hope  some  of  than  will 
soon  be  up  and  running  on  your  computer,  and  arc 
stored  with  your  own  favorite  prograns.  They're  sure 
to  provide  you  with  a  Lot  of  fun  In  the  *eeka  ehcod. 

(By  the  way,  from  now  oft,  we ' L L  use  "1"  in  this 
bock,  rothor  than  "wew  which  sounds  too  much  like 
the  "royal  we".  "I"  seems  to  road  better.! 

I ' vn  deliberately  written  the  book  eo  that  It  Is 
1  Open-ends d '  .  Thet  ie,  in  contrast  to  many  other 
collection*  of  geneE  program*  on  the  market*  I've 
assumed  you'll  want  to  adept  and  improve  the  prog¬ 
rams  once  you  gat  them  up  end  running.  Therefore, 
with  many  of  them  I've  included  program  breakdowns, 
came  line  by  line,  no  you  know  phut  each  awctlon  of 
code  Is  doing*  A*  well,  the  Introduction  to  aech 
flection  discusses  a  bit  about  the  philosophy  of 
writing  genes  of  that  type,  has  a  word  or  two  to  cay 
about  the  basic  algorithms  which  you  can  ubr  to 
create  genes  of  that  tori  youraeLf,  and  generally 
aims  to  give  you  a  colld  background  against  which 


you  can  expand  end  develop  your  omn  gemoa-w r i t 1 ng 
ski L  Lb  . 

Near  the  back  of  the  book  you'll  even  find  a  section 
devoted  entlreLy  to  gome*  ideea  which  you  con  con¬ 
vert  into  computer  games. 

To  na* 1 « 1 bs  thB  Length  or  program  you  con  get  Into 
your  hoc  hi ne  (and  to  keep  program  entry  time  down  to 
a  minimum]  few  of  the  programs  Include  Instructions, 
These  orm  In  the  taxt.  However,  If  you  hove  the 
memory  [and  the  Inclination]  you  can  eaelly  add  a 
"Do  you  want  i net  rue 1 1  on s"  line  no  part  of  the 
initialisation  subroutine,  and  then  Include  e  short¬ 
ened  form  Of  the  Instructions  from  the  text  In  your 
program. 

I  think  we  should  get  to  thB  fun  pmrtB  immediately. 
Good  game-ploying, 

Tim  Hartnell 
Glen  Pringle 


Board  Games 


Sqbb  gamen  could  not  hove  existed  without  computora, 

Think  of  the  whale  ronge  of  Space  Intruder  typos  of 
gamee  and  the  Pecptreon  ones.  These  could  hsvo  not 
came  Into  being  before  the  computer  -  uetng  a  TV- 
like  screen  for  output  -  use  developed.  Many  other 
games,  of  course,  predate  the  computer  by  thousand** 
of  years.  However,  more  end  wore  of  these 
traditional  gamsQ  have  now  been  computerised,  with 
board  games  being  as  popular  with  computer  gemou 
players  as  they  ware  with  players  In  pmcomputer 
days  * 

In  this  section  of  the  book,  we  have  a  generouB 
crop  of  boord  games: 

♦  GOHOKU 

♦  FOUR  IN  A  ROW 

*  CHECKERS 

•  KNI6HTSBRID0E 


tfe'Ll  start  this  section  of  the  book  with  a 
d i f cuflfil on  on  how  board  games  can  be  easily  modified 
to  make  it  possible  for  a  computer  to  handle  them.. 
Thera  Is  a  comnan  thread  which  holds  together  all 
the  progrowfi  In  this  section  of  the  board,  a  thread 
which  you  can  slsa  use  to  help  you  develop  programs 
to  play  your  favorite  board  goose* 
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Look  first  at  this  diagram.  It  shows  a  checkerboard 
nuubnrgd  to  wake  It  o«By  for  the  computar  to  handle. 


You  cert  Indicate  any  square  on  the  board  by 
referring  to  thB  nuabar  along  the  left  hand  aide, 


teuch  3),  then  the  number  along  the  top  (such  as 
4],  In  thie  caoo,  tho  linec  nunbered  3  (along  the 
left  hand  side)  and  the  line  lumbered  4  [along  the 
top]  meet  et  the  square  numbered  34.  If  you  wish  to 
move  a  piece,  you  can  do  eo  by  entering  the  number 
of  the  square  you're  moving  from  (such  as  55),  then 
the  number  you're  moving  to  [such  as  66]  end  the 
computer  can  understand  exactly  what  you're  doing. 
There  1e  no  naed  to  change  the  numbers  entered  by 
the  human  player  into  another  sat  In  order  to  aLlow 
the  computer  to  interpret  thea, 

Thot  1 e  the  firat  ’eocrat'  of  writing  board  flames  so 
your  computer  can  ploy  thee.  The  second  la  thot  a 
board  numbered  In  this  way  has  another  greet 
advnntogo  ovor  one  which  ie  eiepLy  numbered  from  on# 
to  64  In  order.  Irf hen  you  neve  a  piece  in  any 
direction  on  this  board  --  no  natter  where  you  start 
—  the  difference  between  the  squares  Is  the  some, 

I'Ll  try  to  expand  on  that  Somewhat  cryptic 
statement.  If  you  move  one  square  up  and  to  the 
Mflht  —  Like  the  nove  of  a  piece  In  checkers  —  you 
will  move  from,  aoy,  24  to  36;  or  from  53  to  64;  or 
from  71  to  82.  But  notice  that  no  matter  whore  you 
are  on  the  board,  the  difference  between  your 
starting  end  ending  squares  ie  a Lways  11,  IT  you 
move  diagonally  up  to  tha  left,  you'll  move  from, 
say  f  26  to  35  (plus  9],  or  66  to  75  [also  plus  9J  or 
from  22  to  31  (plus  8  again). 

This  predictability  makes  It  relatively  simple  to 
crests  a  board  which  the  computer  can  handle. 

How  the  computer  plays 

Imagine  the  computer  has  e  Checkers  piece  on  the 
square  numbered  24,  It  could  be  programmed  to  check 
each  square  on  the  board,  end  every  time  it  found 
one  of  its  own  pieces,  could  check  if  there  was  a 
human  piece  on  the  square  numbered  the  same  as  Its 
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pl^ce  Ithet  1b,  24-  In  this  example),  plus  11  [that 
1af  on  3B3;  and  It  could  shock  to  aoe  whether  the 
square  which  see  11  peat  that  r  46,  net  blank*  If  It 
found  thnt.  ull  these  conditions  hbtb  true,  thu 
computer  could  Junp  over  bquare  35  Into  square  4E  r 
Ijnd  capture  the  piece  currently  occupying  36  + 

Thie,  in  eesenca,  is  how  many  computer  hoard  perns  s 
—  from  checker*  ,  through  rflverst ,  to  chess  —  work, 
booed  on  a  binpic  Q  by  3  grid  numbered  in  this  may. 


If  you  were  writing  cheep  you  could  specify  tha 
a? □  v c £  of  tbn  knight  by  knowing)  it  onn  nLweye  move 
iq  equBrM  Bhlch  are"  the  following  'numerical 
distance'  fr<o»ti  the  square  on  which  the  piece  now 
bits-? 

21  12  -B  -19  -21  -1 2  1i  a  a 

Try  It  how,  by  pleofnfl  *  coin  on  square  nunbor  55, 

land  wove  it  as  i  F  it  w«fft  a  knight,  working  put  the 

we thorn a  tics L  raLetlDOBhip  between  the  storting 
square,  and  the  square  you're  moving  to*  Ynu  should 
find  the  difference*  ore  the  soma  as  tho  number# 
listed  *  b  o  y a . 

Tha  progranE.  in  this  section,  end  in  many  other 
parts  of  this  book,  were  written  5  n  a  "Lop  down' 
wanner,  In  nn  attempt  to  produce  a  structured 
prog  me  which  la  re  La  lively  easy  to  fo  l  low  and 

modify.  Many  or  the  programs  Mere  written  by 

entering  the  fa L Lowing  'bare  code1  at  tha  start? 


ID 

HEM  NAME  DE  GAME 

20 
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S0D0:HEM 
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30 
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PRINT 
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40 

60SUB 

1000 i BEM 

COMPUTER  MOVES 

50 
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8000 ;HEM 

PRINT 

board 

00 
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7 0 DO  tH  EH 
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70 

Chock 
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has  won  or  computer  Hue 

won  and  if  so  drench  to  ondi  of 


g  o  pics  nq  cm  ng  n  ,  •  , 

80  SOTO  30 

This  structure  was  Britten,  In  Dourly  ell  caeoap 
bef Dim  I  hod  the  slightest  Idee  how  1  was  to 
occDBpliBih  the  go  o  Lb  7  had  net  mysolf  for  each  of 
Ch«  Bubrou  tln-BR. 

All  prog  i*  aae  vara  written  out  coop  Lately  nn  pop  or 
before  the  computer  bob  even  turned  on,  sa  that  a 
version  of  the  game  could  be  'bend  run'1  before 
Starting  to  actuelLy  greppLe  with  the  gene  on  tho 
COfrputar.  This  enable  the  worst  bugs  to  be  caught 
right  tot  thu  beginning. 

Among  the  many  great  advantage  a  I  d j  bcdvb  r«d 
regarding  programming  on  paper  in  this  Bay  mac  the 
willingness  with  which)  I  comp  lately  discarded  whole 
block*  of  code  if  they  b ere  found  to  be  unworkable, 
It  is  much  mors  difficult  to  decide  to  erase  a  whole 
section  of  code  froa  a  prog  raw  once  yuu  actuaLLy 
have  it  in  tho  computer  then  it  ie  to  Juet  tear  up  ft 
piece  of  paper,.  Tha  temptation  —  when  Unas  of 
program  are  actually  in.  the  computer  --  la  to  fiddle 
aith  them,  in  an  attempt  to  make  this  lark,  at  Land 
after  a  fashion* 

Working  on  paper,  then,  tends  to  avoid  having  code 
which  really  sfrouLd  mat  be  In  a  program  senahow  be¬ 
ing  patched  together  to  sake  it  work.  Working  with 
a  structured  outl ine,  such  b$  that  I've  described, 

wskub  it  hi np la  to  know  which  pa  *  tha  proirao 

carry  out  which  took,  1  know,  for  oxampla,,  in  the 
outline  above  that  the  board  is  printed  by  the 
subroutine  starting  at  lino  0000.  Therefore,  If  the 
board  cotua  out  looking  a  bit  odd,  I  know  ImaadMata- 
Ly  which  section  of  the  code  I  should  concentrate 
a  n  . 

A*  well  Bb  helping  In  the  aarly  'gat  It  working4 
stage,  e  structured  program  taride  to  Invito  improve¬ 
ments.  Dtace  you  have,  for  axampLe,  your  own  Checker® 
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program  up  and  running,  you  can  go  bock  to  it  cornu 
time  in  the  future  tb  try  and  n-a  k  e  It  play  a  Little 
better  by  going  just  to  that  port  of  the  code  which 
co  v  ore  t  h  n  conputar  1  a  g  a  m  o  .  You  will  not  have  to 
wade  through  vmbe  acres  of  cade,,  trying  to  work  out 
Just  vital  cech  Una  doas,  and  which  particular  LI  nor 
contra!  Lhn  conputor 1 b  play. 

The  methods  I've  Just  outlined  are  uaad  throughout 
this,  and  mast  other  cent  farts*  of  the  book.  It  moy 
prove  instructive  to  look  through  some  of  the 
program®  to  follow  through  the  Listing,  end  work  out 
which  section  does  what.  In  nsny  profiremCp  you'll 
see  that  I've  included  Unas  of  aaterlefce  es  a  REH 
e-tatement  *  Thnae  break  Che  program  into  separate 
modules  which  should  heLp  you  follow  the  program 
through. 


GOMOKU 

You1  it  find  GOHGKU  an  easy  gene  to  Learn*  r  but  one 
which  1ft  « Ibo* t  ivip&ttlble  to  win.  The  computer 
pLayB  extremely  well  In  thlc  progran,  which  Ifi  bsBod 
ofl  o n r  written  by  Graben  Charlton. 

You  have  to  try  to  a&t  five  of  your  piece*  (the  H r  b  1 
111  a  row  In  a  n  y  d  1  motion,  while  t  h  n  £  nn  p  u  tnr  1ft 
trying  to  do  the  cane, 

Htavo  a  Look  u  t  these  board  positions  Fran  tha  start 
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Hera's  the  listing  for  your  vory  own  game  of  GOMOKU: 

10  REM  OOMOI U 
20  SnSlJB  7Bu 
30  OOSUB  130 
40  GOSUB  270 
30  GOSUB  J  30 
60  GOSUB  350 
70  GOSUB  130 

80  IF  L^3  THEN  PRINTsPRlNT  "I  WIN!!"jGOT(J  1040 
90  GOTO  40 
lOO  E*A 

110  E=E-»N:  IF  A  <E)  •  >Z  THEN  RETURN 
120  k*K*l i GOTO  110 
130  PRINT  CHR4<28) 

150  PRINT  T AR ( 7 1 : " 1  2345670- 
160  FOR  A-l  TO  El: PRINT  TAIM3)  1  A:  **  "j 
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170  FOR  B«*2  TO  9 
180  M=A<A*10+B> 

190  IF  M=C  THEN  PRINT  "C  " ; 

200  IF  M-H  THEN  PRINT  "H 
210  IF  M=46  THEN  PRINT 
220  NEXT  B 
230  PRINT  A 
240  NEXT  A 

250  PRINT  TAB ( 7)  :  "  1  2  3  *1  5  6  7  8“ 

260  RETURN 
270  PRINT: PRINT 

280  PRINT 8416*  "PLEASE  ENTER  YOUR  MUOE .  .  .  " :  PR  1  NT 
290  INPUT  G 
300  G=G* 1 

310  IF  6<  12  OR  G>B9  OR  A<GX>46  THEN  280 

320  Z=H:  PRINT34  16,  L*t  PRINT 5448.  L<fc 

330  A  (6)  ■=  Z 

340  RETURN 

350  A=G 

360  L=0 

370  FOR  X-*l  TO  4:k-OsN-Xm 

380  GOSUfi  100 

390  N=-N: GOSUB  100 

400  IF  K>L  THEN  L-K 

410  NEXT  X 

420  IF  L>3  THEN  PRINI:PRINT  "YOU  WIN''":END 
430  T*1 

440  IF  T<>2  THEN  Z*C 
450  IF  T-2  THEN  Z~H 
460  G=OsHl=0sL“0 
470  FOR  A=12  TO  89 
480  M»0 

490  IF  A  (A)  046  THEN  600 
300  FDR  X=1  TO  4sK«0iN-X(X> 

310  GOSUB  100 

520  N=— N; GOSUB  100 

330  IF  K>L  THEN  Hl=Os L*K 

540  IF  LOK  THEN  570 

350  IF  T=1  ANt>  L<4  C1R  <  T*2  UR  T=3)  AND  L-  2  THEN  570 
560  M-M+l 
370  NEXT  X 

5SO  IF  MC*Hl  THEN  600 
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5?0  H1*M:G=A 
600  NEXT  A 

610  IF  H1O0  THEN  680 
620  T=T+1 » IF  704  THEN  440 
630  A-l 

640  G=RND i77>+13 

650  IF  A(G)»46  THEN  680 

660  A~A+1»IF  A<  10O  THEN  640 

670  PRINT ;PRlNT  11 1  CONCEDE  THE  GAME “ t 

PRINT  “TO  A  MASTER •!": FND 

680  A<G)=C 
690  2=C:A=GjL»0 
700  FOR  X=1  TD  4 
710  K=0 
720  N=  X  <  X  ) 

730  tSOSUB  100 
740  N— — Ni  GQSLJB  lOO 
750  IF  K>t_  THEN  L=K 
760  NEXT  X 
770  RETURN 

790  CLStL»«"  "jREri  25  SPACES 

790  DIM  AUOO)  ,  X<4) 

SOO  FOR  C=L  TO  8 

810  FOR  B**2  TD  9 

820  A  CCttQ+EO  *46 

B30  NEXT  B 

840  NEXT  C 

830  FOR  0*1  TO  4 

860  READ  Z:XtCI>=Z 

870  NEXT  0 

3BO  DATA  1 , 9t 10, II 

890  H-ASC(’H“> :C»ASC(”C"> 

900  PRINT: PRINT  "ENTER  ’  Yr  IF  YOU  WANT  THE  " 

910  PRINT  ’FIRST  MOVE,  ’N’  IF  YOU  DON’T" 

920  N»0 
930  N=N+1 
940  A4-INKEY* 

950  IF  A*0“N"  AND  A»<>“Y"  THEN  930 
960  CLS 

970  IF  A*«’Y*  THEN  RETUHN 
980  FOR  J*1  TD  RND  <121 
990  READ  2 


lOOO  NEXT  J 
IQIO  A«Z)-C 
1020  RETURN 

1030  DATA  34,  35.  44. 44.,  47,54, 33,56.57, 66,  73,bT4 
1040  SOUND  It, 3: SOUND  16, 2j SOUND  13,4 
t  SOUND  19, 2i  SOIJNO  16,3 
1050  SOUND  1 3, 6 SEND 
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FOUR 
IN  A  ROW 

In  thifl  flo on,  FOUR  IN  A  ROW,  od  Its  namu  suggests, 
Che  alw  1b  to  get  four  of  your  pieces  t thn  H'»)  i n  o 
line  fin  any  direction,  before  the  computer  ( u  r i n  c 
the  C'e]  eenogec  to  do  ao . 

You  indicate  your  choice  of  move  by  specifying  the 
coluan  in  which  you  want  to  move  your  piece.  The 
piece  then  drops  to  the  lowest  available  position 
within  that  column. 

The  computer  plays  this  gene  ralrly  well,  and 
surprieingLy  quickly,  considering  the  number  of 
times  It  can  go  through  those  Loops  within  the 
prog  raw . 

I  was  not  particularly  pleased  when  1  finished  the 
first  hand-written  version  of  this  program,  because 
it  seemed  to  me  that  I  had  taken  e  •brute  force1 
approach  to  Solving  the  problem.  I  woe  sura  there 
would  be  a  wore  clever  way  to  do  It*  However,  I  con¬ 
tinued  with  the  progrom,  and  then  entered  It  Into 
the  computer.  It  won  the  first  game,  even  though  It 
ployod  a  Little  oddly,  so  I  knew  1  wee  onto  a 
winner,  despite  the  programming  approach.  Then,  whan 
thinking  about  It  lator  I  realised  that  if  the 
program  wab  correctly  structured  (j>8  It  wee),  had  no 
redundant  code  land  it  hasn't,  as  far  as  I  can  bob), 
ran  quickly  and  well,  It  did  not  sand  'fiddling1  to 
make  thn  programming  more  tricky.  Transparent  code 
is  always  better  than  overly  clever  convoluted  coda 
which,  although  it  nay  occupy  less  space,  end  may 
run  b  few  nicroaecande  faster,  la  at meet  Impossible 
to  modify* 


So  tbs  program  you  have  hers  Is  «iy  'brute  force' 
version.  It  Is  generously  supplied  with  REM 
statements  so  you  have  little  trouble  In  working  out 
what  each  section  of  code  does.  It  should  also 
prove  fairly  simple  to  modify,  once  you  have  played 
a  few  games  with  it  In  It*  present  fore. 

In  this  version  of  FOUR  IN  A  ROM,  the  coeputer 
always  b L  lows  the  human  to  have  the  first  move,  end 
bases  Its  initial  move  on  that  eade  by  the  huean. 
You  nay  wish  to  modify  the  program  oo  thot  thorn  1* 
an  option  for  the  computer  to  have  the  opening  move. 

Before  wc  got  to  the  Hating  of  FOUR  IN  A  ROM, 
here's  one  gnio  played  against  the  program: 


.  *  .  R  ♦  ♦  * 

1  2  3  *  5  6  7 


•  .  •  C  .  .  . 
.  .  .  H  ,  .  . 
1  2  3  *  5  5  7 


.  ■  .  u  ,  .  ■ 
,  .  H  N  C  .  . 
1  2  3  *  5  6  7 


»  .  .  C  .  .  . 
..HR..* 
.  H  C  C  C  .  . 
H  C  H  H  C  .  . 
1  2  3  *  5  6  7 


•  •  *  C  .  .  . 
H  C  H  H  C  .  , 
1  2  3  *  5  6  7 


C  .  .  C  .  .  . 

c  c  ii  h  n  .  . 

H  II  C  C  C  .  . 

a  C  H  H  C  .  H 

1  2  3  *  5  6  7 
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listing 

for  FOUR  IN  A  ROW 

10  REM  FOUR— TN- A— ROW 
20  DOSUB  1090: REM  INITIALISE 
30  GDSUB  OtjO:  REM  UPDATE  BOARD 
40  GOSUB  6801  REN  #JLN  CHECK 
50  GOSUB  9@0:*EM  HUMAN  MOVE 
60  GO SUB  960 1  REM  UPDATE  BOARD 
70  GOSUB  680: REM  WIN  CHECK 
BO  GO  SUB  HO:  REN  COMPUTER  MDVE 
90  FR INT9320 , L * « GOTO  30 
IOO  REM  TUIIllllim 
t 1 0  REM  CORFU  TER  MOVE 

120  F^tNT9320, "PLEASE  STAND  BY  FOR  MY  NOME _ " 

130  B-IO 
140 

130  IF  A  <  B  ► =—9  THEN  ISO 

160  IF  A<B)«C  THEN  X=CsGOTO  210 

170  IF  A  <EO=H  THEN  X-HtGOlO  210 

180  IF  B< 77  THEN  J 40 

190  GOTO  480 

200  REM  fttX»*Mt**Mt***»*****t***t* 

210  REM  FDUR  IN  A  ROW  DANGER/ CHANCE? 

220  REM  ACROSS 

230  IF  A  f P+  1 )  =X  AND  A(B*2)-XAND  A<B*J)«E  ANI) 

A(B+13X>E  THEN  1220 

240  IF  A  <B-1  >*X  AND  ACB-2)=X  AND  A<&-3>=E  AND 

fl(B+7K>E  THEN  t230 

250  IF  A(R+U«X  AND  A<B«-2>-X  AND  A<B-1>®E  AND 

A(B+?T.  <€  THEN  1240 

260  IF  A(B-1)-X  AND  A<B-*-2)-X  AND  A(D»1>»E  AND 

A<B+H)OE  THEN  1250 
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270  IF  At'B-MI-X  AND  A(B-l)®X  AND  A  <  B+-2)  aE  AND 

AtB*12)OE  THEN  1260 

280  IF  A<&«-U«X  AND  A<B-1)«X  AND  A  ( B-2)  -E  AND 

AtB+8K>E  THEN  1 270 

290  IF  A<B-1)=X  AND  A  <  A- 2)  =X  ANDA  <  1 ) *E  AND 

A<B*11)<  E  THEN  1250 

300  REM  DOWN 

310  IF  B .>20  THEN  IF  A<B-IG»=X  ANI)A  <  8-20)  «X  AND 

A<B+10»=fc  I  HEN  1300 

320  REM  DIAGONALS 

330  IF  AIB*l|;)-X  AND  A<D*22)"X  ANDA  <  B- 1  U  -EAND 

A  <  B-  I  >  *-'  >E  Tt-CN  1240 

340  IF  A(B+9)uX  AND  A(R+18)=X  ANDA  ID-9)  =E  AND 

AfB+OOE  THFN  1200 

350  REM  »»»  ****t*#*.M  M>* 

360  REM  MAKE/DLOCK  THREE'7 
370  REM  ACP0S9 

380  IF  AlB+lI-X  AND  A<B+2)=€  ANDA (B»l2>  <  >E  I  HEN 

M0VE=e+2:60ta  650 

390  IF  ACB-»i)-X  AND  AtB-IXE  AND  A(B«-9)OE  THEN 

MOVE-B-liGOTO  650 

400  IT  A  (B-l  )=X  AND  A<B-2>rE  AND  A  t  <  >E  THEN 

MOVE=B-2l GOTO  630 

410  REM  VERTICAL 

420  IF  AIB«-tO)**X  AND  A<B-10>-E  ANDA  <B>  <  >E  THEN 

MOVE -B- 1 0 1 GO  T O  650 

430  REM  DIAGONAL 

440  IF  A  <  B+9)  =X  A NO  A<b-9)=E  AND  A<8*-1X>E  THEN 

MOVE=B_ 9 1  GOTO  630 

450  IF  EX  1 1  THEN  IF  A  <Eo- 1  t )  -XANDA  <  B -  1 1  >  *E  AND 

A(HK)E  THEN  1290 

460  GOTO  180 

470  REM  *»****S*S»St 

460  REM  SINGLE  MOVES 

490  FOR  N~1  TO  3 

SOO  M<N)»0 

510  NEXT  N 

520  COUNT -O 

530  FOR  6”1 1  TO  77 

540  IF  AIBIOC  AND  AlFUOH  THEN  600 

350  IF  A<BM>*E  AND  A(B+m<3€  I HEN  COUNT-*COUNT* 1 

sMtcauNn-e-M 
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560  IF  A(P-1)=E  AMD  AiD*9)<>€  THEM  IX)IMT=CGUNT4- 1 

imcauwr  >=8-1 

570  IF  rt(B-  10)*E  AND  A(B)OE  THEN  C0LIMT=C0UWT«-1 

i M (COUNT* ~B* 10 

5BO  IF  A(R-m«E  AND  A<8-llOE  THEN  COUNT=COUNT-*-l 

SM (COUNT )=B-1  1 

590  IF  A  CB-9)  AMD  A(fcH-l)  >E  THEM  CDtlNT=COUNT«-l 

:H (COUNT)  =B-9 

600  NEXT  B 

610  IF  COUNT < >0  THEN  640 

620  PRINT  "I  THINK  ME  SHOULD  CALL  IT  A  DRAW- 
630  PRINT* PRINTS  PRINT a  END 
640  MlTVE=W ( RND  <  COUNT  1  ) 

650  A (MOVEJ  *C 

660  RETURN 

670  REM  WIN  CHECK 

630  X“H 

700  E*=10 

710 

720  IF  A(BK.X  THEN  770 

730  IF  AND  A<B+2>=X  AND  A4D+3)-X  THEN  900 

740  IF  &.*30  THEN  IF  A1B-10)=X  AN l>A  < &-2G>-X  ANI) 

A (B-30) “X  THEN  900 

750  IF  B  >33  THEN  IF  A(»-il)=X  ANDA  (Ef-22)  -X  AND 

A  ( B— 33>  —X  T1«N  SOO 

760  IF  *1,27  THEN  IF  A<R-9>=X  AND  A<&-1B>*X  AND 

Alb-27)-X  THEM  900 

770  IF  B<77  THEN  710 

700  IF  X=H  THEN  X=CiGOT0  700 

790  RETURN 

0OO  RFN  WIN  FOUND 

a 10  PK1NI 

020  IF  X=H  THEN  PRINT  "YOU'VE  BEAI6N  ME,  HUMAN 1 ” 

B30  IF  X-C  THEN  PRINT  "I’VE  DEFEATED  YOU, 

HUNAN ! " i SOUND  16,3 

B.J53  IF  X=C  THEN  SOUND  1 6.  2 « SOUND  13,  4j  SOUND 

1 S, 2s SOUND  16,3 

857  IF  X=C  THEN  SOUND  13,6 
040  LND 

650  REH  ************ 
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860  REM  UPDATE  BOARD 
870  PRINT  CHR*<2S)j 
080  FOR  R«10  TO  70  STEP  lO 
090  PRINT  1AP15>; 

900  FOR  J-l  TO  7 

910  PRINT  CHFrMA<K+J>  )  ;  "  "? 

920  NEXT  Jt PRINT 
950  NEXT  I-: 

940  PRINT  T  At)  <  5  >  t “ I  2  3  4  5  6  7" 

950  PR I NT SPRINT 
960  RETURN 

970  REN  ***«#«*»* 

980  REN  HUMAN  MOVE 

990  PRIMTi>288.  "  TOUR  WOVE*  PRINT 

lOOO  PRINT*320,  “WHICH  COLUMN  DO  YOU  WISH  TO" 

1010  INPUT  "MOVE  ( NTQ" ; J 
1020  Z*J 

1030  Z“Z-*-  10  s  PRINT  *280,.  L4i  PR  I  NT  L«sPRlNT  L3> 

S PRINT  L*s PRINT  t* 

1040  IF  AtZ+lCO-E  THEN  1030 

1050  IF  A  <  Z  >  =E  THEN  A< Z I =H: RETURN 

1060  PRINT *384, “YOU  CAN’T  MOVE  THERE" 

1070  GOTO  1000 
1080  REM  ******* 

10VO  REM  INITIALISE 
1 1 OO  CLS 

1110  DIN  A<  109.1  ,M<50>  ,P<6) 

1  I  20  E=4* 

1  130  H*»72  5  C«-6? 

1140  FOR  Be]  TO  109:A<B>*E 
I  I 50  U=H- 1 0* 1 N1  l B/ 1 0 ) 

1160  IF  D^O  OR  D>7  UR  B<U  UR  6 >7 7  I  HEN  A<»>=-9 
1 170  NEXT  b 

1100  Lt-"  *' 

: REM  31  SPACES 

1190  RETURN 

1220  NUVE=B»3: GOTO  650 
1230  I10VE»B-3:GGT0  65 <0 
1240  MOVE- 0 -1  ;  G4JTQ  650 
1250  MOVE  -B-*-  1  s  GDTO  650 

1260  MOVE^tl  OsGQTO  650  1  280  nUVE=B-9s  OCITO  650 

1270  MT  lVE=b— 2  t  GOTO  650  1290  MOVE -b- 1  I  :  GOTO  650 

1300  IP  A<B*20K  ->E  THEN  MDVE-H*  lot 

GOTO  650  LL5E 
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CHECKERS 


The  gope  of  CHECHES 5  has  a  long  end  honorabLfl 
history,  fl ,  C,  Belt  tin  his  book  DlacovaMng  Old 
Boa  rtf  Be  raft.  Ships  Pub  Meet  1  one,  Ay  Ledbury  ,  UK, 
19 BC]  soya  ft  vac  Invented  around  1 1  DO B  ■probably  1r 
the  south  of  France,  using  ea&k-ganngn  tab  leu  an  on  e 
Chequered  chessboard  with  the  Alquarque  method  of 
captu  re11  [pp,  35  -  36).  The  EitoyoLoppdlfi  of  Sports, 
Gapes  and  Pastimes  [FLeafcwoy  House,  London,  c.1935) 
puts  It  muah  further  book  In  tine*  "Foma  of  It  wore 
known  in  ancient  Egypt,  Greece  and  Rows*  while  the 
Rene  was  pLsyed  In  tha  m  1  d- so  van  t  ea  nth  century  much 
es  it  is  today. 1,1  [  p .  237)* 

Regardless  df  its  age,  It  Is  a  very  popular  game 
around  the  world,  with  many  European  countries 
having  regional  variations  on  the  gene  Of  chair  own. 
Continental  draughts  tchackare  Is  generally  known  ae 
draughts  outalda  the  US)  f  for  example,  Is  pLayed  on 
a  board  of  10D  squares  with  each  player  starting  the 
geae  with  20  pieces.  It  woe  developed  In  the  early 
1700  1  e  . 

This  CHECKERS  program  plays  tha  gma  you  wro 
probably  eoet  familiar  pith.  It  pLsys  swiftly.  end 
reason  ah Ly  well,  although  Its  Lack  of  endgewe 
strategy  often  Lead*  to  a  dramatic  col  Lapse  in  the 
final  moment  of  s  gees. 

CHECKERS  it  played  between  you  and  the  computer* 
Each  n  f  you  it  attempting  to  take  (that  is  jump  over 
to  captors,  then  remove  free  the  board)  the  other 
p  L  a  y  a  r  r  s  pieces,  or  to  confine  the  opponent  *  a  piacaa 
so  no  more  novas  are  possible. 

Tha  game  Is  generally  played  on  a  boerd  with  &4 
squares,  which  ere  alter nstoly  light  and  dark.  In 


this  program,  the  beard  [as  you  can  sea  frem  the 
sample  gams  we  have  shortly)  Is  a  series  of  dots, 
with  your  pieces  shown  bb  H"s  {for  human)  and  the 
machine's  pieces  es  Crs  (for  clever)* 

Whan  the  gene  bogino,  you F  ro  at  the  bottom  of  the 
lefftifl,  playing  up  t  end  the  computer  is  at  the  top 
playing  dean-  As  the  progrom  is  currently  set  up, 
Ehn  cqnjsutnr  nlaoyn  has  the  first  IOVB.  If  you  vent 
the  first  wove  them  delete  Line  SO. 

All  moves  must  be  wed*  a  Long  dlegoneLe.  le<di  vlduil 
pieces  can  only  move  forward.,  that  is  towards  ths 
opponent's  starting  aide.  Plasma  era  converted  Into 
"kings'  whan  they  reach  the  bock  rank  uerose  the 
board.  Your  kings  are  shown  as  Ki&t  the  compute r4 s 
kings  ere  do L Lor  signs*  Kings  can  move  either 
forward  or  beck.  After  capturing  o  piece,  by  Jumping 
over  It  into  the  vacant  square  Immediately  behind 
the  Captured  piece,  you  con  move  again  if  there  1e  a 
further  capture  which  ten  be  mBde* 


COMPUTER:  4 
HUMAN i  4 


COMPUTES t  6 
HUH AS :  6 


9  .  8 

7  *  -  C  .  C  .  7 

6  .  .  .  .  C  6 

5  .  H  .  .  C  «  5 

M  .  #  .  .  H  ,  H  M 

3  .  .  .  H  .  3 

2  .  .  .  C  .  K  2 

1  .  .  »  H  .  1 

12  3*5(70 


sa 


12  3  4  5  6  7  8 

8  .  8 
7  .  H  .  C  .  C  .  7 

6  .  .  c  .  c  «  C  6 

5  .  .  .0.5 

4  .  .  H  *  .  H  4 

3  .  .  ♦  H  .  3 

2.  .  *  H  *  n  2 

1  t  .  H  ,  t  .  H  .  1 

1  2  3  4  5  6  7  9 


COMPUTER: 

9 

COMPUTER: 

1 1 

HUMAN* 

10 

HUMAN : 

10 

1 

2 

3 

4 

5 

6 

7 

8 

1 

2 

3 

4 

5 

6 

7 

8 

B 

• 

• 

X 

■ 

. 

6 

8 

■ 

-P 

* 

• 

8 

T 

♦ 

H 

■ 

. 

7 

7 

• 

♦ 

■ 

it 

7 

6 

• 

• 

• 

. 

6 

8 

4 

K 

•P 

* 

# 

* 

« 

5 

* 

« 

• 

* 

* 

5 

5 

m 

• 

* 

tf 

5 

4 

• 

m 

4 

4 

4 

4 

■ 

■ 

• 

4 

3 

■ 

■ 

K 

3 

3 

■ 

■ 

# 

3 

2 

• 

* 

• 

ft 

2 

2 

■ 

♦ 

■ 

• 

• 

2 

1 

« 

* 

• 

1 

1 

• 

• 

* 

* 

1 

l 

2 

3 

A 

5 

6 

7 

8 

1 

2 

3 

4 

5 

6 

7 

B 

Thl®  (s  the  complete  listing  for  CHECKERS! 

lO  REM  CHECKERS 
20  GOSUfe  IOIOjREM  INITIALISE 
30  REM  DELETE  LINE  3D  FOR  HUMAN 
40  REM  TO  HAVE  FIRST  MOVE 
30  GOTO  90 

60  REM  MSItStSftf  *t**tt**«M»»* 

70  (5D3LJB  AOOtREM  PRINT  BOARD 

HO  GOSUB  7bOi  REN  GET  AND  PRINT  HUMAN  MOVE 

90  GOSUB  600: REM  PRINT  BOARD 

lOO  GCI3UH  130*  REM  MAKE  MOVE 

110  GDTD  70 

120  REM  **M+:i*S*tS*ktttS»Sttt» 

130  FOR  X=t  TO  10: S ( X ) =0: NEXT  X 
140  SC-0 i A* 89 
150  A«A-1 

160  IF  6(AK>C  AND  «<A)\>C  K  THEN  240 
170  B-OslF  As 29  THEN  B-2 
l  BO  R=B+1 
190  M=A-*-N<B> 

200  IF  M)13S  OR  M<  1 1  THEN  240 

210  IF  10 I'M >  =H  OR  Q(M)=KK)  AND  0 («■*■« i B >>  =E  THEN  200 
230  IF  B\2  OR  (Q(A>=CK  AND  64)  THEN  180 
240  TF  Axil  THEN  150 

230  FL»Oi IFQ<22>=C  OR  Q424)*C  OftGH26>=C  OH  0C2B1-C 

THEN  GOSUB 1270 


as 


260  IF  FL  =  1  THEN  570 
270  SOTO  420 

280  rj<M+N<6>  )»GKA)  sQ  <M  >  =E»  0  <  A)  =E 
290  CO=CtHl 
300  G0SU6  400 
310  A»M*N(B> 

320  B=0 
330  D*B  *1 

340  IF  {042*N(B)<11  OR  A+2KN < ED  >fl8>  AND  B<4  THEN  330 
350  M»A+N<B) 

340  IF  G<M>»C  AMD  B>3  THEN  RETURN 
370  IF  (0(M)=Hk>  AND  0(M+N(ED)=E  THEN  330 
330  IF  IK  2  DR  (0<A>-C4  AND  B<4>  THEN  330 
390  RETURN 

400  IF  SC<10  THEN  SC=SC+l 
410  S  ISO  «100*A+B-*-20:  RETURN 
420  IF  SC-0  THEN  470 
430  XORMDlSC) 

440  A— I NT (S (XC> / 1 00 > 

450  li-A+M  (B  <  XC >  - 1004  A-20> 

440  GOTO  570 

470  SC=SCM  *  A-RND  (SB) 

400  IF  OfAIOC  AND  QlAIOCK  THEN  350 
490  B=0 
500  B-BH 
510  M^A*-N(B> 

520  IF  H>aa  OR  M< 1 1  THEN  570 
530  IF  Q<m=E  THEN  570 

540  IF  R<  2  OR  Q<A>»CK  AND  B<4  THEN  300 
550  IF  5C<300  THEN  470 

540  PRINT sPRINT”!  CONCEDE  THE  GAME *' j END 
570  Q (M) =0 ( A) j  Q  < A) =E 
560  RETURN 

590  rem  tmmmimtiuiim 

400  PRINT  CHR*<28): 

610  PRINT”  COMPUTER* "CO 

620  PRINT"  HUMAN i "HU 

630  PRINT"  I  2345478" 

440  FOR  F-80  TD  lO  STEP  -10 
650  FRINT  F/10*"  "  * 

640  FUR  6=1  TQ  8: PRINT  CIIR* <Q<G-»F> ) ; "  " i t NEXT  □ 


6/0  PRINT  F / 10:  NEXT  F 

690  PRINT-  1234S678" 

690  IF  CQ« 1 2  OR  HU-12  THEN  710 
700  RETURN 

710  IF  HLI=12  THEN  PR  JNT"YCRJ  HAVE  WON ! 

720  IF  C0=l2  THEN  PRINT" I  HAVE  WON!" 

730  PR I NT "'HANKS  FOR  THE  GAME " i END 
740  KCMitiiiiuHitmmmm 
750  REM  99  TO  CONCEDE  THE  GAME 
760  REM  HUMAN  MOVE 

770  PRINT 54 16. ‘ENTER  YOUR  M0VE',»PR1NT 

780  PRINT3449. • " f i INPUT" FROM”* A 

790  IF  A=99  THEN  GOTO  730 

800  IF  O  <  A)  <  >  H  AND  OCA)  <  >  HK  THEN  780 

810  PRINT844fl,-  “  }  s  1 NPIJTMTQ,J$  B 

815  IF  0(At=H  AND  B^A  THEN  010 

820  IF  Cl  <  B I  <  >E  THEN  810 

825  PRINT54I6, "  " t REM  15  SPACES 

830  Q<EO=0<A>  j  CHA1-E 

835  PRINT5440,"  * t REM  10  SPACES 

840  REMtmttimiimumim 
850  FOR  T-ll  TO  17*  IF  Q(T)=C  THEN  GttT>-CK 
860  NEXT  T 

970  FOR  T=82  TO  80t  IF  CMT>=H  THEN  Q<T)=HK 
880  NEXT  T 

890  REnimumiiiiiiiumiM 

700  IF  A8S(A-BKl2  THEN  RETURN 
710  TY=RND<10> 

720  IF  TY<3  THEN  PR  I NT54 1 6, "GOOD  M0VE"iGU9UB  1340 
930  IF  TY  >7  THEN  PR  I NT54 1 "GOT  NE!"iGOSUB  1340 
940  HU«-HU+1:0<  <A*B)  /2>-EiBOSUB  600 

950  FOR  T=82  TO  08a  IF  0<T)-H  THEN  CMT)=H  THEN  G»(T)-H 
960  NEXT  T 

970  PRINT :  IWPUT"CAN  YOU  JUMP  AGA 1  N  t Y/Nl  •' j  A* 

975  PR1NT5416, “ 

980  IF  A*<  >"  Y"  THEN  RETURN 
770  A-BiGOTO  800 
1 000  REM* * NMtUittltltttttltti 
101O  REM  INITIALISE 

1020  CLB* PRINT  "PRESS  THE  SPACE  KEY" 

1030  IF  IN<EY*<?  *'  “  THEN  1030 
1040  CLS 

1050  PRJNT-PLEASE  STAND  BY" 


1060  DIM  Q(99) ,N<4> ,3(10) 

1070  H=72*F4.=  7S 
10 BO  C=67lCK=36 
1090  E»32«OF«-99 

HOO  FOR  M=1  TO  99s  0<m*0F:N£XT  M 
lllO  FOR  M=1  TO  64 
1120  READ  D,G 
1130  0<D)«l3iN£XT  M 

1140  DATA  81, 46. 02, 67. B3, 46, 04, 67,85, 46, B6, 67, 87, 46 
1150  DATA  88,67.71,67,72,46,73,67.74,46,75,67.76,46 
1160  DATA  77, 67. 78, 46,61 , 46, 62, 67, 63 , 46, 64,67 
1170  DATA  63,46,66,67,67,46,60,67,51,32,52,46 
1180  DATA  53, 32, 54, 46, 55, 32, 56, 46, 57. 32. SB. 46 
1190  DATA  41.46,42,32.43,46,44,32.43,46,46,32 
1200  DATA  47, 46. 4B, 32, 31, 72, 32,46,33,72,34.46,35,72 
1210  DATA  36, 46, 37, 72, 38, 46, 21, 46, 22, 72. 23, 46. 24, 72 
1220  DATA  25, 46, 26, 72, 27, 46, 2B. 72, 11,72, 12,46, 13, 72 
1230  DATA  14.46, 15,72, 16,46, 17,72, 10,46 
1240  FDR  Ms-1  TO  4 :  READ  Xs N <M> =X : NEX 1  W 
1250  DATA  -11,-9,11.9 
1260  C0»0 : HU»Q i RETURN 


1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 


IF  Q<22>-C 
IF  0(22>=C 
IF  0 < 24 )  =C 
IF  0(24>«C 
IF  D(26)=C 
IF  Q(26)«C 
RE  TURN 
FOR  0=1  TO 


AND  CUll)=E  THEN  A=22:H=1 1 : FL=1 sflETURN 
AND  Q(l3»=fc  THEN  A=22j M- 13: FL«1 i RETURN 
AND  (3(13)  **E  THEN  A=>24 1  M=  1 3t  FL-1  t  RETURN 
AND  a<15)=E  THEN  A=24  t  (1=15:  FL=»  1 :  RETURN 
AND  0(15)-E  THEN  A-26: M»l 5l  FL-J s RETURN 
AND  0  (17) -E  THEN  A»26:  M=1  7i  FL=  I  sRETURN 

lOOOi NEXT  Oj RETURN 

COMPUTER:  0 
HUMAN :  0 


1  2  3  1  5  6  7  6 

8  .  C  .  C  .  C  .  C  8 

7  C  .  C  .  C  .  C  .  7 

6  ,c,  ,c*c  6 

5  •  •  C  *  ,5 

4  4 

3  H  .  H  .  H  .  H  .  3 

2  .  H  .  H  .  H  .  H  2 

1  H  .  H  .  H  .  H  .  1 

12  3  4  5  6  7  8 
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KNIGHTSBRIDGE 


It  i«  playtd  on  o  suven  by  sown  board.  Tha  computer 
tell*  you  which  piece  you  must  ■ove  loach  place  1v 
indicated  by  entering  a  two-digit  number,  the  first 
being  the  co-o rd i na tea  of  the  square  you're  moving 
to  down  the  Fide  of  tha  boards  thn  second  digit 
being  the  co-ordinates  Of  the  square  across  the 
top).  and  then  Lcoveo  you  to  decide  there  you  *1Lt 
nova  to  *  AIL  plsces  move  like  Chase  knights,  end 
ill  aoves  »r«  checked  to  sea  If  they  are  legal 
before  you  era  allowed  to  wovn. 

You  capture  by  Landing  on  top  of  an  uneiy  piece.  The 
first  player  to  capture  five  of  the  enewy's  seven 
pieces  Is  the  winner.  There  are  no  multiple  juipe. 

You'll  find  the  computer  plays  salftLy  end  wall. 


mr  sere  it  d 

you*  sews  n  o 

I  2  3  4  5  4  T 


7CCCCCC. 7 

6 . 6 

5 . C  .  5 

i .......  4 

3  4  4  r  H  i  t  •  i 
2  <  i  l  <i  m  i  2 

I  H  N  H  H  .  H  J 
12  3*51? 

mu  WS1  WOVE  fHC  PIECE  G «  13 

7  34 


Ft  S»f  0 
riJUR  sen?  IS  0 

J  2  5  4  3  4  7 


7  CC  C  C  C  C  C  7 


A***.*..  4 

St,***..  5 

1  . 4 

3  4  . . 3 

2  . 2 


L  H  H  H  H  H  H  K  1 
1  2  3  4  3  6  7 

i  not  to  move  m  piece  on  77 


ao 


ID  RE*  HI3-T3MID5E 

2D  EOSVB  764  :REN  INITIALISE 

JO  KSIIB  49(  :R£R  MtllfT  IO«J 

40  If  WJ*5  [R  C0«5  TON  tfi)  :f£N  EDO  OF  ttWt 

H  BOiUB  W  :«£*  MNPUTfft  ffltf 

W  6D5IB  41t  :«ei  PRII1  KHRD 

n  If  IlFi  (ft  DO'S  TMih  M3  TON  END  4F  BMC 

91  60S1B  IK  3 HER  PLAlEft  fCvtS 

90  6GTt  ID 

it*  rei  fiiiiMmiimiitniM 

lift  RER  PLft'E*  NOYES 

l:o  e*o 

130  •-‘Mtt  4iJ+i  l 

140  W+l 

130  IF  Q»30*  TIO  DEO 

IK  IF  RUM  >72  riCR  130 

170  wttirftiu  misi  mra  n«  piece  oh*r 

IK  Ill’Ll  N 

190  IF  *»99  TON  6*500:80 TO  MO 
200  RE*  4H  TOCt  IF  OWE  tEEfll  III 

210  P=« 

220  CT*J 

230  IF  R»! C£T3>N  THE*  P«l 

240  IF  QT(B  THE*  CT'CT+ITOTO  23# 

2W  if  pi#  TON  PtMTILUM  fflVE-iBOia  J:C 

ZM  IF  HCM*47  TON  RU'WHiPRlIfTTOLL  PtRlflH'tFKR-lTKOOiNnT 

274  Hlil-4WMI|]«TC 

280  Rn.fN 

29#  re*  itniiimiminioiiit 

300  4EH  CaiFRltR  WrtS 
SIO  CM 
120  85=01+1 
314  CiRND4f4f+» 

JM  IF  9I+SH  THE*  MO 

354  IF  *(0047  Tt£R  320 

36#  PRINT!  HWE  40  NOrt  TO  PIECE  <W 

345  FOR  f»l  Tft  300ft: *E 11  F 

170  N*1 

180  EF  K*1M<II  OR  ltjiil>77  TIO  «M 

183  If  H IK+i EN5 P=7 J  TON  fftlRI  -6ITCH*,,*3FW  F»l  TO  15WTOX1  F 
394  If  HIK*2(N)>=72  TON  tO*CD>l:EOTD  4M 
44M  IT  IKS  TON  N-N+JiBOT:  380 
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41*  KH 

4?*  IP  IK+ZIkXIt  OR  l+J  I  If  >  >  7  7  >  AND  IKS  THEN  feN+UNQIO  4» 

430  IF  N4W«I)K>44  AND  K8  THEN  NMMiSOTO  430 
<4>  IF  M  AM)  MUWriniO  4A  TT€N  f  l*5KiBGFQ  rtl 
454  XtfkHKtHlI 
46>  K(IM6:HTM67 

474  return 

*Bt  Ren  miirimmuiiutiri 

*9*  REN  PRMf  imV 

50)  CIS 

513  PM  IT  TAK8J;*m  SC8H£  ^CO 
52)  PRINT  T*i<9)|"TflM  SCORE  IS'HU 
534  PRSIT 

541  PRUT  T«<8);*l  3  3  4  3  17* 

55)  PRINT  Ufsfil  - 

561  Fffl  14=74  TO  20  STEF  -10 
57*  PRINT  TMtfJiNMOa 

56)  FW  TO  7 

9H  PRINT  *| 

meit  i 

MO  PRINT  A/ 10 
m  MEir  fi 

631  PRINT  T«<S)jB - —  ■ 

440  PRINT  2  3  4  5  6?* 

£6)  RETURN 

670  pen  timimmiinmtm 

460  CM  £«•  Cf  BADE 
6f0  S&SUB  410 

700  IF  Hll*5  THEN  PNIHrvOU  HIVE  BEATEN  NE JOJ.HWN1 
710  If  C0=5  THEN  «$UB  130 

720  If  0-500  THEN  PRINT* I  ACCEPT  YOUfl  NISH  10  MWCEBE* 

730  If  01=500  THEN  PRJNT‘1  CSWCEDF  TO  A  MSTER- 
740  EKI 

750  pen  mitminiiiiimiiii 

7M  m  INITIAL  I  SI 

770  CtS;PI3NT-PLE«E  STAND  BTV - HLINAIi* 

7 BO  DIN  HilOCI f I f 8) 
m  l=0;0l=0:0=0 
14)  HiM0:CD*0tN£R  SCORES 
StO  FW  A=l  TO  99 

S70  If  A>77  CN  0=74  OR  toO  «  A=68  OR  6=69  «N  N=50  THEN  NETT  A 
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830  IF  **39  OR  A*W  0*  M:  OR  M<?  08  *>30  OR  *«W  TtftN  KIT  A 
mo  if  a-m  :ha=:c>  o*t=2fi  tw=29  ormib  im=i9  qra<ii  thin  ten 
ft)  81*1=0* 

BOO  IF  A>TA  Ml  Mil  THT8  R(A)*47 
870  IF  <IHO  Utt  ACI8  TICK  8<AI*72 
873  If  AW  ’HEH  WO 
5rO  NEXT  A 

BOO  FOB  Ml  TO  8:1*41'  JlAcKCll  A 
900  WTA  -9,-21,-12,-19,19,12,11,8 
9!4  RE1UR8 

9»  FHWflWS  VICI08Y  IS  TIC  FIRTjMWT'STEP  ]N  OOf  PlM  Tl'j 
930  nUNI'  TAH’sfRir'OOEH  T*  BI11RE  OIWiRETOftl 


93 
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Adventure 
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Adventure 

Down  into  tho  depths  of  darkness  you  go-  Armed  mi  th 
onLy  your  coupwter,  and  your  keen  mind,  you  have 
detcidad  to  take  o  n  the  forces  of  evil. 

You  h ft y  be  on  a  desert  Island,  Inside  e  haunted 
house,  Within  a  dungeon  deep  altlvln  the  bowels  of 
tha  earth  3  or  trapped  in  a  cava  eye tern  nr.  a  pLenet 
1  somewhere  In  a  galaxy  far  away 1  . 

ADVENTURE  panes  take  place  In  ail  thusu  scnnorlos, 
and  b  thousand  mere  beside.  Come  with  us  now,  as  we 
discover  tha  excitement  of  tha  worlds  of  ADVENTURE, 

+»*#***+ ***#***#*«***** *4*4 

The  word  ADVENTURE  is  used  to  describe  the  cLbbs  of 
computer  gam**  In  whldh  the  player  moves  through  an 
a 1 1 o rn at  1 vn  reality.  In  this  1 otfoarwo r Ld 1  there  ere 
monsters  to  be  fought,  treasures  to  be  discovered, 
mops  to  he  made,  end  puzzles  to  be  solved* 

Many  people  reel  that  ADVENTURE  gomes  ere  the  most 
exciting  genes  which  can  be  played  with  a  computer. 
If  you  are  interested  In  ro Ta-pLmyl ng  gamee  like  TSR 
Hobbies1  Dungeons  end  Dragons  (tha  game  and  name  ere 
registered  tredonerke  of  TSAI,  then  you're  certain 
to  enjoy  playing  ADVENTURE. 

I’ve  Included  two  ADVENTURE- li ka  programs  In  this 
book.  Both  are  reasonably  difficult  to  solve,  but 
are  most  enjoyable..  Neither  of  thorn  era  so  hard  tu 
work  out  yourll  give  up  in  frustration. 

One  feature  of  true  ADVENTURE  genes  Is  that  the 
raaltty  they  node  l  is  consistent „  That  i  s,  the  world 
created  within  the  ADVENTURE  program  is  saMidt  and 
“  apart  from  any  events  specific  to  that  game,  such 
o a  an  earthquake,  or  a  magic  spell  —  the  parts  of 
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the  world  da  not  shift  In  n  random  fashion.  If  you 
walk  past  b  'gnarled  and  twisted  o  o  k  r  with  the 
initials  of  your  best  friend  carved  In  the  trunk1 
when  going  dawn  a  certain  woodland  pnrk,  the  sene 
oak  should  still  be  there  when  you  return.  In  a 
properly  constructed  ADVENTURE  the  rivers  stay  in 
place,  the  dungeon  walla  do  not  myutariouely  none 
and  shift  every  time  you  turn  your  hack,  and  objects 
you  put  down  In  one  cave  within  an  underground 
Labyrinth  do  not  auddonLy  appear  of  their  own 
volition  a  hundred  caves  away  (unless,  of  course, 
they've  been  blessed  with  boko  fora  of  magical  auto- 
t  ranaportati on) . 

Map-making  1*  ana  of  the  true  ADVENTURE-p Lay 0  re 
ekilLs  and  delight.  Working  your  way  through  an 
imaginary  [but  se  l f-conel 6  ten t )  environment, 
tackling  monsters  and  collecting  trsoeureB,  solving 
puzzles  ea  you  go  up  end  down  stBlrceses  and  chutes, 
explore  aide  tunnels,  get  Loot  In  se Lf-c 1 rc l 1 ng 
mazes,  and  so  on  la  only  fascinating  if  the  world 
you  are  exploring  Is  flappable.  You  should,  for 
example,  be  able  to  expect  both  ends  of  a  tunneL  to 
always  omerge  in  the  sene  cpotfi,  so  when  you  coiae 
across  one  entrance  to  that  tunnel  later  on  In  e 
game  from  a  different  position,  you  will  have  &  new, 
useful  clue  to  further  flash  out  your  wap  of  the 
environment.  ALl  the  'worlds'  created  in  the  games 
In  this  section  of  your  book  are  nsppable. 

Role-playing  1b  part  of  lire.  There  are  sura  to  be 
wany  situations  in  your  everyday  activities  when 
you,  to  some  extant,  era  forced  to  adopt  s  role. 
Most  Jobe,  unfortunately,  expect  you  to  behave  aa  if 
the  needs  and  goals  of  the  company  ware  your  own 
needs  and  goals,  that  the  enthusiasm  you  project 
each  day  to  customers  and  f e l Lo w~wo r ke ra  wore  your 
own,  inner  enthusiasms,  and  00  on.  You  way  well 
find  that,  In  new  situations,  you  have  learnt  to 
mask  your  Lock  of  ea&a  by  acting  confidant,  and  at 
ease,  discovering  that  —  if  you  do  it  skillfully  — 
people  take  the  projected  role  as  If  It  were  your 
t  rue  se  L  f . 


The  role-playing  which  takes  p  l  a  c  b  within  the 
inaginary  onv  1  ronroont*  Df  on  ADVENTURE  game  im  for 
me  re  interesting,  ©nd  i*  generally  far  rewiavad  fron 
the  self  of  your  everyday  life*  When  you  think  about 
it,  oven  ploying  gomcG  Lika  'Cope  and  Robber* '  is  an 
exercise  in  ro  l  a-p laying* 

Sor  ve’ve  oil  hod  experience  in  role-ploying,  even 
if  so mt  Df  It  was  not  as  much  fun  00  taking  port  in 
long-range  campaigns  to  rescue  0  hnridaanij  prince, 
trapped  within  a  tower.  The  ADVENTURES  given  in  this 
book  are  by  no  means  as  elaborate  as  sows  of  the 
ones  offered  for  sol*  for  your  computer,  but  they 
are  more  carefully  end  consistently  organised  then 
aany  1  have  seen,  end  --  as  a  bonus  --  give  you 
frameworks  within  which  you  can  construct  ADVENTURE 
progress  of  your  own. 

Ro L e-p  l© y i ng  gonna  which  involve  other  people,  such 
as  TSR**  DSD  which  1  mentioned  earlier,  generally 
have  a  great  deal  of  flexibility  in  development  as  a 
gono  procoada*  Under  the  control  of  e  good  Dungeon- 
■astif t  a  role-playing  game  can  develop  end  evolve 
in  directions  which  he  or  whs  hod  not  oven  Imagined 
whan  sotting  up  the  initial  scenario.  Unfortunately, 
computer  role-playing  games  cannot  be  so  flanlbL*. 
In  many  ways  when  pLoying  ADVENTURE  with  e  computer, 
you  are  trying  to  solve  a  puzzle,  or  aeries  of  Cham, 
which  the  programmer  has  created.  The  computer  can 
bo  used  to  help  sot  up  the  Initial  scenario  end 
determine  where  objects  will  be  locatsd,  end  perhaps 
where  s  particular  stairwell  will  lead,  but  the 
overall  ahapo  to  the  environment  is  fixed  by  the 
progrownor  whan  the  game  is  written. 

You  can  bco  this  in  action,  for  exempla,  In  our 
prop  raw  STRONGHOLD  OF  THE  DWARVEN  LORDS  where  you 
have  to  work  your  way  through  a  maze  to  discover 
■hern  the  Dvarven  treasure  is  stowed.  The  computer 
actually  hides  the  treasure,  and  modifies  the  ’3-D 
maze'  to  sowe  extant,  but  that  io  oil.  Of  course, 
the  computer  is  also  used  to  produce  the  feedback  to 
the  pLayer  as  the  game  la  underway,  end  it*  role 
there  is  vary  valuablw. 
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Once  upon  o  tin*,  vftr  campaigns  urere  ra-onacted  an 
table  tope.  Napoleonic  battles  uere  fought  end  won 
on  large  sheets  of  cord  narked  with  rivers  and 
■roods,  no  players  ra-anactad  major  engagements 
within  wore,  or  created  thfcir  own.  Wargamere  found 
the  pleasure  of  the  gonaa  they  ployed  could  be 
Increased  If  attention  ware  paid  o*  much  (if  not 
morel  to  the  individuals  they  were  fighting  with, 
rather  than  Just  with  squads  of  soldiers.  ThiB 
attention  to  individual  Identity  lead  directly  Into 
the  role-playing  genes  we  have  today,  oe  gamers 
discovered  how  rewarding  it  woe  to  take  on  the  role 
of  a  particular  leader. 

Our  Dungnonu  and  Dragons  developed  directly  from 
the  war  games  wherB  players  took  on  the  Identities 
of  individuals  within  battles.  Two  genera,  Dove 
Arneon  and  E.  Gary  Gygax  decided  to  codify  an 
entirely  separate  reality,  which  they  initially  gave 
to  the  world  in  1974  as  o  bajtad  set  of  three 
booklets  under  the  title  Punoeons  fiJ3d  Dr  Bflons ,  The 
game  bee  ewe  an  enormous  success  r  and  new  hundreds  of 
thoueonds  of  peopLa  spend  n  significant  portion  of 
their  leisure  plunging  into  the  depths  of  the  earth, 
«$  Clarice,  trolls,  »egaicton&  and  sorcerers,  ex¬ 
ploring,  fighting,  conquering  —  end  occasionally 
dying  —  be  they  go. 

The  original  0  &  D  Idea  bWon  spawned  a  host  of  other 
gawes,  such  as  HunequBHt  [Chwaslum  Ltd,  Albany, 
Ca  li forni a) ,BuBhtdo  and  Chivalry  fii  Sorcery  (Fantasy 
SerenB  Unlinlted,  Roslyn,  hew  York),  Tunnels  &  TroLls 
(Flying  Buffalo,  Inc.,  Scottsdale,  Arizona],  Travel¬ 
ler  (Sane  Designers1  Workshop,  SLoonington,  Illi¬ 
nois)  and  Heroes  of  Olympus  (Task  Force  Genes,  Ane- 
rl  l  Id  ,  Texas]  . 

Will  Crovrt-hnr  and  Don  Woods  entered  coaputer  history 
in  1976  by  putting  the  world’s  first  rein-playing 
gome  --  Just  called  ADVENTURE  --  onto  &  wain  front 
computer  at  Stanford  University,  (The  progran  waB 
actually  written  by  Growthe r ,  and  elaborated  by 


Woods,  although  today  both  man  ore  generally  cre¬ 
dited  with  development  of  the  program.)  Although  the 
gome  quIckLy  became  a  cult-pursuit  elL  over  America, 
the  floodgates  to  computer  ADVENTURE-gam  1  n  g  did  not 
open  until  microcomputers  put  Bachini-power  —  and 
computer  time  --  Into  the  hands  of  million*. 
Cheaper  memory  enabled  extremely  oLaborstw  adven¬ 
tures  to  ba  created,  and  so  now  the  computer  ADVEN¬ 
TURE  gamer  is  extremely  well  served. 

Cronthor  and  Woods  perhaps  creeled  batter  than  they 
knew.  Even  today,  despite  the  multitude  of  programs 
available,  the  original  ADVENTURE  is  still  going 
strong.  At  least  five  companies  at  present  era 
selling  versions  of  the  original  ADVENTURE  for  the 
Apple  a  tone . 

This  original  program  woo  written  In  Partrsn,  and 
when  It  was  added  to  a  free  software-exchange  libra¬ 
ry  iDecus)  organised  by  the  Digital  Equipment  Compu¬ 
ter  Users'  Society  (moat  of  whom  used  Dec's  DCP-11 
aystena],  it  coon  became  the  most-used  program  in 
the  library.  Twd  years  later,  onolher  adventure 
program,  Dungeon  was  added  to  Decus,  This  program 
which  took  the  ADVENTURE  Idea  much  further  than 
Crowther'a  program,  was  wrltton  by  Tim  Anderson, 
Hare  Blank,  Bruco  Daniels  and  Dave  Lebllng,  all  of 
the  Programming  Technology  Division  of  the  HIT  Labo¬ 
ratory  for  Computer  Science. 

The  AddUon-Wss  ley  Book  of  Apple  Computer  Software 
(edited  by  Jeffrey  Stanton  and  John  Dickey,  The  Book 
Co. f  lawndalo,  California,  1981)  devotes  29  pages  to 
describing  fantasy,  role-playing,  adventure  and  war 
simulation  games  available  for  the  Apple  II.  If  the 
support  for  that  computer  Is  so  good  in  thla  field 
of  software,  It  Indicates  that  many  other  popular 
computers  are  also  wall-supported. 

Although  there  is  a  trend  towards  graphic-baaed 
adventures,  rather  than  the  claasic  text-baaed  ones, 
the  attraction  of  text  programs  continues.  Just  as 
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television  did  not  auks  radio  obsolete  —  because 
tha  Imagination  Is  stronger  than  anything  nan  con 
•aka  —  oo  graphic  adventures  hBve  not  taken  away 
the  special  vaLuo  of  toxt-bsRcd  genes,  where  the 
mind  Is  triggered  to  produce  worldE  far  more  fantas¬ 
tic  than  any  that  g  clever  programmer  could  drew 
using  the  sophisticated  graphic®  available  on  many 
of  today's  sechlnes. 

One  of  the  leading  companies  in  the  world  producing 
ADVENTURE  programs  i  v  Adventure  International, 
founded  by  Scott  Adame.  Hi  a  company  has  acme  of  the 
moot  Imaginative  displays  at  computer  ahem?  of 
anyone  In  the  games  software  field,  and  It  Is  good 
to  know  hie  programs  ere  as  exciting  as  hie  «how 
display*.  Hake  sure  you  experience  the  pleasure  of 
playing  n  Scott  Adana  adventure  program  In  due 
course,  and  you'll  sns  how  far  tho  genre  hoc  bean 
extended* 

I  met  Scott  in  Atlanta  one  day  at  o  computer  show 
and  found  him  friendly,  Quiet  and  reserved.  Somehow, 
I'd  expected  him  to  be  like  a  warlock  from  one  of 
his  durtQBanB,  or  a  dragon  from  one  of  the  cove 
systoie.  However,  some  behaviour  woe  more  In  keeping 
with  ay  nx pec t e 1 1  one .  It  waa  HeLlowean,  and  Scott 
and  hie  tree  were  ell  dressed  to  the  nines  no  chare* 
ctoro  out  of  some  □ T  the  programs.  The  same  approach 
to  life  which  had  him  tell  hie  staff  to  coins  to  nark 
in  fancy  dress  permeates  hie  programs.  Start  with 
the  progress  hero,  which  are  much  simpler  to  solve 
then  programs  such  os  Scott'o,  and  then  graduate  to 
tho  commercial  programs.  Perhaps  hie  program 
AdventurnLond  would  be  a  good  piece  to  begin,  before 
you  nova  on  to  eomo  of  hie  other  gomes,  end  onto 
those  produced  by  other  companies. 

************************** 

I  guae*  it's  time  now  to  Introduce  you  to  the 
adventure  program*  In  this  book.  If  you'd  like  to 
know  more  about  the  field,  to  help  you  write  your 


own  progrsnB,  there  la  a  vest  body  of  Litornture 
which  is  of  Interest.  It  included 

-  PUTTING  ADVENTURE  IN  ADVENTURE  GAMES 
article  in  Creative  Competing,  August  1981,  by 
Robnrt  Plemcndon 

-  GRAPHIC  ADVENTURES  ON  THE  ATARI  -  article  in 
Creative  Computing  ,  August  1982,  by  John  Anderson 

-  FANTASY  GAMES  [parts  one  and  two)  -  articles 
in  Creative  Computing,  issues  of  Murch  1931  [part 
one)  and  Nay  1981  [port  two)  by  David  Lubsr 

-  AN  ADVENTURE  IN  SHALL  COMPUTER  GAME 
SIMULATION  -  article  by  Scott  Adewe  (when  he  was 
Just  about  unknown)}  in  Creative  Computing,  way  back 
in  August  1979 

-  KINGS  OF  THE  CASTLE  MALLS  -  article  In 
Practical  Computing,  March  I982f  by  Dennis  Ellis 

-  ADVENTURE  WRITING  -  this  ia  an  immensely 
valuable  18-page  booklet,  distributed  by  Aardvark- 
90,  2392  S.  Conns  r  to  ,  Walled  Lake,  HI  >48098  (313  6S9 
3110)  for  around  IS, 00.  It  explains  tho  whole 
beck ground  of  adventure  game  writing,  and  Includes  a 
complete  adventure  program,  DeBthship,  If  you  read 
nothing  else  in  tha  field,  you  should  gat  hold  of 
this  booklet  if  you  really  want  to  discover  how  to 
writ*  adventure  genes 

-  FANTASY  ROLE-PLAYING  GAMES  -  Holmes,  J,  Eric 
(Hlppocrsne  Books,  Inc.,  New  York,  19B1) 

-  WHAT  IS  DUNGEONS  AND  DRAGONS?  -  Butterfield 
John,  Porker  Philip,  and  Honlgmann  David  (Penguin 
Books,  New  York,  1982) 

-  DICING  WITH  DRAGONS  -  AN  INTRODUCTION  TO 
ROLE-PLAYING  GAMES  -  Livingstone,  Ian  [RautledfiS  6 
Kogan  Peul,  London  Melbourne  and  Henley) 
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STRONGHOLD  of 
theDWARVEN  LORDS 

Poop  beneath  the  earth  you  go,  far-  into  the  Dw&rven 
Heartland.  Danger  1*  on  every  el  da  a*  you  d-afleftfttf, 
but  your  grpod  drowa  you  on.  Searching  through  the 
dusty  stacks  of  uric*  t«  lo gu  wd  manuscripts  In  room 
5460  of  the  British  Kuaeuw,  you  cane  across  a  faded, 
and  almost  illegible  map  to  n  Own r yen  hoard  of 
q  o  1  d  t  and  since  that  d  a  y  r  you  have  bean  obsessed 
with  the  Idea  of  finding  It* 


As  you  Qo  down  Into  the  Labyrinth,,  you  realise  that 
the  Dm  or  von  tarda,  who  sweratad  the  gold  here  73  BH 
years  n go ,  hnvu  long  since  become  extinct,  £0  the 
mein  danger  you  face  Is  from  the  Layout  of  the 
cavern  system  itmaLf,  rather  than  from  Guards  of  the 
St  rang  ho l d  4 


In  STRONGHQLP  Of  THE  DWAflyEN  LORDS  you  are  In  * 
cflvsrn  nhlch  hplde  the  gold.  Each  time  you  play  this 
gni>e,  thy  gold  can  ba  In  one  of  three  pieces.  The 
only  Information  you  get  be  to  your  progress  1& 
■information  provldad  by  tho  Pworven  Source  Baas 
mhlch  you  found  as  you  wade  your  way  Into  the  cave 
systeru  This  gives  you  feadboOk  after  each  move  as 
to  the  Location  of  tho  gold,  but  you  need  to  Learn 
how  to  Interpret  the  information  It  gives  you  before 
you'll  be  able  to  wake  much  use  of  It. 


The  other  information  you  &wt  ifi  in  the  form  of  a 
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straight  atatenent  regarding  the  dlrectinnu  you  can 
novo  froo  your  present  position*  After  each  nova 
['atap'l,  you'll  be  given  a  screen  display  like  the 
fo l Lowl ng : 


STEP  NUMBER  49 

NORTH;  17ALL 
SOUTH;  OPEN 
EAST:  WALL 
WEST:  OPEN 

THE  DUARVEN  SOURCE  BEAM  READS  10 


Then  you’lL  be  asked  to  enter  the  direction  you  wont 
to  move,  jo  FoLLowc: 


HHICK  DIRECTION  DO  YOU  WANT 
TO  MOVE? 

N  -  NORTH*  S  -  SOUTH 
C  -  EAST ,  W  -  WEST*  11  -  HELP 


You  elll  not,  aa  you  probably  realise,  be  allowed  to 
mo  Ik  through  walLe* 


The  aim  of  the  game,  naedLeae  to  say,  is  to  roach 
tho  Dasrvon  riches  as  quickly  as  possible.  To  aid 
you,  there  Is  a  nap  of  the  cavern  systeit  fro*  above, 
Mhich  you  can  call  up  rrom  time  to  tine. 

There  ere  too  Ootchee  to  calling  up  a  mop  oT  this 
type.  Firstly,  although  you  ere  shown,  the  Looitlor 
of  the  gold  ic  not.  Secondly,  each  tine  you  enter 
'll'  to  get  a  look  at  tha  map,  you'll  be  penallead  IS 


step*.  Therefore,  It  1b  In  your  interests  to  use  the 
H o l p  option  ob  f o ■  tlnoi  as  poceibLe, 

NORTH 

994**94****444* 

4  49994944  S4S 

it  aat  4 

*»  994*4  4*4494 
44  44494  494 

44  Hi  494 

4444449  94  4 

4494999  499  4  9 
94  *  4  444 

44  ******  9 

94  94  99949 

944*4 *  *4  94449 
994949  99  94949 
9  99  9 

4*4994949444949 
SOOTH 

Although  there  are  gone  features  which  are  common  to 
each  and  every  cavern  generated  by  this  program 
(dictated  by  the  date  statements  from  860  to  9$0), 
the  cavern  is  not  identical  froa  run  to  run.  As  well 
ea  that,  aa  I  mentioned  earlier,  the  gold  Itsolf  can 
be  in  one  of  three  locations  el  thin  the  cbvs  system. 

The  output  of  tho  program,  ae  it  is  given  in  terme 
of  the  dictations  you  can  take  from  your  present 
position,  could  be  modified  to  produce  a  '3-D  maze1 
output.  You  knot,  from  nove  to  nova,  mhich 
direction  you're  facing,  and  the  computer  knows 
which  directions  from  that  position  represent 
possible  moves .  You  Mould  ne«d  to  add  o  subroutine 
which  draw  a  picture  of  the  situation  iartedi  ately  In 
front  of  you,  choosing  from  a  bonk  of  pictures  (one 
with  the  area  straight  in  front  of  you  clear  but 
with  the  walla  solid  on  either  side  of  you,  another 
with  extrances  to  the  right  and  to  the  left  but  with 
the  path  straight  ahead  blocked  off,  and  so  on}  to 
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produce  □  continuous  picture  of  the  cconn  ahead. 
This  can  be  most  affective,  and  »sy  Melt  bo  Morth 
implementing  on  your  eystBo. 

New,  here  is  tho  Listing  of  STRON6H0LO  OF  THE 

OWARVEN  LOROS  so  you  con  start  trekking  for  gold: 

Li  181  SIRDMHOU  OF  THE  Mttttl  IW1S 
20  SQ5UB  MO 
30  StfiW  LOO 

40  per  miutmiuiiiuumi 
Si  H*N»liIf  10150  THEM  G010  9i0 
M  CLSiPRlflsPfllNI 
7*  PRINT  ’STEP  MIMECR'A 

at  PRisrr 

90  Pfwirwir*:  *j 

100  IF  AllRi,£)-S  THEN  HINT'OttM’ 

110  IF  A(l»l,tJ'l  THEN  PRJRT’RAU* 

120  MINI  *500™:  *; 

150  IF  A<frl,El*S  Trtfh  P8UfT*QP£A* 

HO  IF  A<M,EI=»  THEN  WlNfWU* 

JW  FRIHT  -EMI:  *: 

lit  IF  AID,f+H*S  1HEN  PfUNfOPCC 

170  If  AlD,f+i)=t  U€M  PRINl'IALl* 

100  PRINT  *KSTi  *; 

190  IF  AtD.E-n.S  THEN  PRINT*0PEM 
200  IF  T*N  WINPIIU 

210  PR  I  Mr 

224  PRIMPTNE  WttNEN  SOUKS  HIA1  REALS'; 

230  PRINT  lOWAMli-tmOMNSlP-tl 
m  rer  mniitDiiiimmni 
750  PRINT 

260  PRINT 'MHICH  IIRECMM  M  «U  RAN* 

270  PRINT 'TO  HOVE'” 

280  PPIlirfPillRT'MMlk,  W0UW 
190  PtlWE-EMT,  IHIEST,  «-HEL»“ 

295  IflMKErt 

Ml  PM'S'OWO^rORA^-rOHM-TORM^H*  IICR  310 

MS  60t*  300 

310  IF  tO**H*  MO  AiD'l'EHK  MR  300 
320  IF  W**S‘  AR0  A1M.EHI  THEN  300 
334  IF  A»-‘E*  AND  tJ-D, [►!)•!  THEN  300 
340  IF  A»'*r  AM)  AiD,£-l)i|  THEN  300 
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m  m  f«i  10  68 

B0>  READ  l,C 

ti»  4te,c>=s 

826  KIT  f 
839  *- 15 
i<«  if  rum 

si)  i£n  ittitiiiiiiiimnnm 

160  MU  2, 2, 2, 3,2, 4, 2, 3, 2, 6, 2, 7 

*70  MU  3, 7, 4,7,5, 7, 5,6, 3, 5, 3, 4, 5, 3, 4, 3 

180  MT4  7, 3, 7, 4, 7, 3, 7, 6,7, 7, 7, 8, 7, 9, 9, 8 

WO  MT4  9,8,10,8,10,7,10,6,10,5,19,4.8,8 

100  MT4  10, 5, 1 1,3, 1^3, 13,3, 14,3, 14, 2, 7,10 

4|Q  DITA  6,10,3,10,4,10,3,19,2,10,2,11,2,12 

WO  B4T4  )l1^2tH,6xll,8J2,6rH>'6lIO(7,l2 

930  DATA  14, 12,8, 12,8,14,9,12,9,13,4, 14,19, 12 

940  0(1  A  11,9,11,10,11,11,11,12,12,9,13,4,13,70 

95*  SATA  (3,11,13, 12, 13, 13, 33,16, 14,14 

960  StUMO  8, 6a EOJAB  6,6;5DIM  4,8s  F«  0*1  TO  IWilCIT  J 

970  PfUTsWINTsWUNT  UnEIt'irSTHPS.raU  WARE  A' 1  8K*' 

990  PIIIT  'MIC  TO  FIND  7HE  HWWEITtHU NFIM  l  It  1 1 *T*EASW£ ! ? * 
990  «I»T  ’9WW  ON  TOU,...’ 

1000  HSUS  5M:F8f  J*l  It  20S0iKlT:EW 
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THE  DUKE  OF 

DRAGONFEAR 

THE  DUKE  OF  DRAGONFEAR  puts  you  Into  another  grid 
system  world,  but  one  which  Is  populated  with  a 
range  of  fearsome  possibilities  Including  pita 
containing  quicksand  or  dragons,  eo  well  as  magic 
ceves  which  con  transport  you  at  rondos  within  the 
land  of  Dregonworld,  and  caves  filled  with  Dragon's 
go  Id  * 

When  you  first  run  the  program,  you'll  get  this 
quick  peek  at  a  map  of  Drogonworld: 
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In  thia  m op,  X  represents  s  wall  you  cannot  pass  or 
s  cave  you  cannot  enter,  H  (for  human)  ie  you 
starting  in  about  the  centre  of  the  system,  %  is  the 
treasure  caves,  ?  the  iioglc  transportation  caves,  D 
represents  dragons  and  Q  tolls  you  that  cava 
contains  quicksand.  Obviously  this  is  9  world 
filled  with  potential  pleasures  as  wall  aa  dangers. 

If  you’re  a  veteran  of  computer  genes,  you  nay  well 
recognise  that  THE  DUKE  OF  DRAGONFEAR  in  a  develop— 
ment  of  the  Hunt  tha  Wumpue  games.  Wumpus  is  one  of 
the  grand  old  standards  of  computer  genes,  in  which 


you  ere  in  a  cave  systen,  looking  for  one  or  note 
mythical  besats  knamn,  In  the  singular  [and  thoco 
ere  moot  singular  besets!  as  Humpu*.  Mumpli  wo  are 
assured,  by  those  nho  care  about  sucli  things,  la  the 
pLurol.  Anyway  r  In  ^Baonce,  a  grid  Is  sot  up  In 
such  gnmot,  and  objnefcB,  ppcipU,  effects,  nonstere 
and  whatever  eLae  you  choose  are  placed  at  locations 
on  the  grid.  From  time  to  time*  if  you  cc  decide, 
one  or  more  of  the  con  tent  *  of  specific  cells  of  the 
grid  iev  ■ova-  The  human  pleyar,  of  course,  can  alec 
no v 0  from  cell  to  coll  within  the  grid. 

Generally,  there  la  no  overalL  visible  nop  of  the 
eyatwm,  although  uc-na  progress  (euch  as  THE  DUKE  OF 
DRAGCNFEARl  do  provide  such  Information  for  players. 
The  very  first  Wumpus  gome  waa  written  by  Gregory 
Yd b  In  1B75.  In  David  Ahl^o  superb  book  More  BASIC 
Computer  EnwtiB  tCreetive  Computing  Press,  Norris¬ 
town,  Wee  Jersey,  1879)*  Mr  Yob  explain*  haw  ha  wes 
visiting  Poop  Lc  1  e  Computer  Company,  in  Menlo  Pork, 
California,  to  $w*  the  proflroms  they  wore  develo¬ 
ping,  end  he  noticed  there  were  thron  'hunt  till 
DDwotliing1  prngraira  doing  written,  each  on  a  10  X  ID 
grid,  and  each  of  which  gave  feedback  to  the  player 
in  taraa  of  ‘no*  no.  ..try  to  the  northwest  *  . 

Oi senohantad ,  Mr  Yob  returned  to  *  lonely  tiee- 
s  h  o  r  1  n|  terminal  [beck  in  those  ancient,  days,  gentle 
reader,  human  beings  did  not  have  Little  computers 
at  their  bock  and  calL)  end  hammered  gut  the  program 
which  eventually  bacon*  the  very  first  ’Hunt  the 
WumpuB*.  Hr  Yob  had  the  creature  dwelling  In  e  doca- 
cahadron- shaped  cave  system. 

Mr  Yob's  Inventive  genius  did  not  atop  at  thie 
point.  Ha  peopLod  the  cave  pith  ’magic  bats1  which 
moved  you  from  place  within  the  Eyetem  at  random, 
with  bottowLe&a  pits,  and  ensured  that  the  arrows 
with  which  you  wore  equipped  when  you  entered  the 
system  could  fly  round  corners. 

You  con  woo  now  how  this  framework  becema  the  heart 


Si 


or  the  Vumpus  programs  which  have  proliferated 
around  the  world  and  which  formed  the  vary  basic 
f rswewo r k  upon  which  THE  OUKE  OF  CWA60NFEAF  is 
based.  This  program  gives  you  more  control  on  the 
outcome  of  the  program,  odds  treasure  to  tha  coves, 
and  Imposes  a  tlme-liiiit  to  your  game. 

As  wall,  you  ore  equipped  with  a  'magic  amulet' 
which  can  see  Into  tho  cavog  which  are  around  you. 
Unfortunately,  because  you're  not  such  of  a  whizz 
when  It  comas  to  envoking  magic,  the  old  amulet 
doesn't  work  too  welt.  It  can  only  tall  you  of  the 
Contents  gf  one  of  the  eight  caves  surrounding  the 
one  In  which  you  stand,  and  torse  then  this  does  not 
teLL  you  which  of  the  eight  it  is  referring  to.  It 
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Is  not  as  bad  os  it  may  sound.  You'll  be  surprised 
at  how  much  use  you  can  make  of  the  United  Inform¬ 
ation  the  amulet  provides.  As  well,  you'll  gat  a 
brief  glimpsa  of  the  oeva  system  from  above  at  the 
start  of  the  game,  and  from  time  to  time  as  It  goes 
on . 
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This  Is  Che  progrum  Listing  to  enable  you  to  become 
THE  DUKE  OF  DBAGONFEAR: 

10  REM  DUKE  OF  ORAGONFEAR 
20  GOSUB  1230 
30  CLSi PRINT :  PRINT  3  PRINT 
40  GOSUB  1200 
30  0*RND<7)-1 

60  IF  0=0  AND  EOS5  THEN  GOSUB  1200 

70  CL  S:  PR  I  NT:  PRINT  SPRINT  "DUKE  "A**',  YOU  ARE  IN  CAVE"E 
80  IF  G>0  THEN  PRINT  "YOJ  ARE  CARRYING  S”S“ 

WORTH  OF  GOLD*' 

90  GOSUB  760 

100  PRINTiPRINT  "YOU  HAVE "2S-H “UNI  IS  OF  CHARISMA  LEFT" 
HO  PRINTsPRINT  “WHAT  DO  YOU  WANT  TO  DO?'4 
120  PRINT  *N  -  HOVE  NORTH,  S  -  MOVE  SOUTH4' 

130  PRINT  “E  -  MOVE  EAST,  W  -  MOVE  WEST- 

140  PRINI  “F  -  FIGHT  A  DRAGON,  Q  QUIT" 

130  INPUT  2«:U*0:  lFZ«  =  "N"ORZ*="S"OfiZ4=ME"'ORZ*=4,W" 

0RZ*-,4F’*THENlfa0 

153  IF  Z*<  >**Q"  THEN  130 

160  IF  Z*-*N”ANDA CE-10>=B3  UR  Z*c"S"  AND  AtE+lO) 

-SS  THEN  1620 

162  IF  Z*»"E"  AND  A<E+l>-80  OR  Z»“*W*  AND  AtE-l* 

“SB  THEN  1620 

170  IF  Z*="Q"  THEN  O-9i0OTG  1170 

180  A  (E)  -46:  IF  Z*»«"N"  THEN  E=£-10 

190  IF  Z*=4,S"  T«£N  E=et-IO 

200  IF  l *="£'•  THEN  E-E*l 

210  IF  THEN  E=E^1 

220  IF  Z*=-F”  THEN  GOSUb  930 

230  IF  A  <E> -63  THEN  GOSUB  310: REM  MAGIC 

240  IF  A  IE)  =*69  THEN  GOSUB  400: REM  DRAGON 

250  IF  A (£>=81  THEN  GOSUB  550: REM  QUICKSAND 

260  IF  A<E>-36  THEN  GOSUb  630: R£M  GOLD 

270  H=H*1:1F  H*25  THEN  0=9:GOTD  1160 

280  GDSUB  1610 

290  GOTO  50 

300  REM  *  1 1  »  l  «M*»  ****  *#»*»*  *** 

310  REM  MAGIC 

320  PRINT  t  PR  I NT  "DUKE  “A*",  YOLTVE  STUMBLED" 

330  PRINT  "INTO  A  MAGIC  CAVE. AND  NOW  YDU’CL’1 
340  PRIMT  "BE  WHISKED  UFF  TO  ANDTHER  CAVE.,.." 
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35o  casus  t bio 
340  A  iE>  =  4b 

370  E=RND < /6 ► +1 2:  IF  A(E)»Q0  THEN  370 
ISO  RETURN 

390  REN  **t»*t«t*«*4 1*********** 

400  REM  DRAGON 

910  PRINT  “Von  HADE  WANDERED  INTO  A  DRAGON’ S'' 

420  PRINT  "LAIR. * . START  SAVING  YOUR  PRAYERS” 

430  GOBUB  lb 10 

440  M=RND< 100001 / | OOOOi IFPK  . 2THENPR INT" I T  HA5 

FLOWN  AUAY":  RETURN 

430  PRINT  M1T  AWAKENS. , . AND  IT  HAS  SEEN  YOU" 

440  GOSUB  1610 

470  IF  I4>.  049999  THEN  PRINT  *’ «JT  IT  HAS  RECENTLY  EATEN 
475  IF  M>. 849999  THEN  PRINT  "AND  SO  GOES  BACK  TO 

SLEEP” i RETURN 

480  PRINT  "AND  NOW  IT  ATTACKS . M 

490  GOSUB  1610 

500  IF  N>, 95  TFCN  PRINT  "BUT  YOU  FIGHT  BACK.... AND 

WIN" t RETURN 

510  PRINT  "GOODBYE  DUKE  "At 

520  GOSLIft  1410)  SOUND  1  .13:  SOUND  1.6:  SOUND  1.0 

530  0=9: 60T0  1160 

340  REM  M*»5**  +  M*  +  >M-*.*x**l**» 

550  REN  QUICKSAND 
560  FOR  J®1  TO  12 

570  FOR  K=1  TO  J:PR1NT  *  tNEXT  K 

500  PRINT  "HORRORS.  .  .QUICKSAND* "1  SOUND  31-J.l 

590  FOR  0^ 1  TO  lOOlNEXT  0 

600  NEXT  J 

610  Q«9: H=0: 30  TD  1160 

620  REM  tcx  *x  ******  fc**  +  *:♦  M  l  *  *  x  x 

630  REM  TREASURE 
640  K-RMDUOOn-IClQ 
650  FOR  J»-l  TO  12 

660  FOR  Z«»l  TO  Ji  PRINT  '*  ”;iNEXT  2 
670  PRINT  "TREASURE  !  !  !~ 

6B0  FOR  0=1  TO  13CUNEXT  Cl 

690  NEXT  J :  SOUND  16,2i90UhiD  IB. 2 i SOUND  ?0f2iS0UND  21.5 
700  GOSUD  IfelG 

710  PRINT  :  PRINT  "VCKJ'VE  FOUND  A  HOARD  OF" 

720  PRINT: PRINT  "DRAGON-SOLD,  WORTH  *"K 
730  G~B-*k 
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740  RETURN 
750  REM 

760  REM  AMULET  DETAILS 

770  Y»1 

780  L=A(E+P<YU 

790  IF  L< 746  THEN  020 

800  IF  Y<8  THEN  Y-Y«-iiGOTD  700 

810  IF  L=»46  THEN  RETURN 

020  PRINT  "YOUR  AMULET  SIBNALB  THAT" 

830  PRINT  “THERE  IS  *'  ; 

84U  IF  L=80  THEN  PRINT  "A  SOLID  WALL"; 

850  IF  L*63  THEN  PRINT  "A  MAGIC  CAVE"; 

860  IF  L-69  THEN  PRINT  “A  DRAGON"; 

870  IF  L»QJ  I  HEN  PRINT  “QUICKSAND* ; 

880  IF  L-36  THEN  PRINT  “GOLD"; 

890  PRINT  “  NEARBY" 

900  GOSUe  1610 
910  RETURN 

920  REM  »*X**t*****«t<*«tlt««l»« 

930  REM  ATTACK  DRAGON 
940  PRINT 

930  AR=AR-tsIF  AR=0  THEM  PRINT  "YOU  HAVE  USED  UP  ALL" 

933  IF  AR-0  THEN  PRINT  "  ARROWS . "a 

GOSUB  16 lOi RETURN 

960  PRINT  "YOU  HAVE "AR" ARROWS  IN  YOUR  QUIVER" 

970  SS“0 

900  PRINT  "WHICH  DIRECTION  DO  YOU  WANT" 

990  INPUT  "TO  SHOOT  IN  <N , s, E, Ofi  WI";S* 

10OQ  IF  S*-"N"  AND  A(E-lO>-60  THEN  S5=lsYT=E-lO 
1010  IF  S*="S"  AND  A (E+ 10) »6B  THEN  SS-1 8 YT-E+IO 
1020  IF  S*=“E“  AND  A(E+I)«A8  THEN  SS=1 :  YT=E+-1 
1030  IF  S*»"W"  AND  A(E-1)-6Q  THEN  BS- 1  s  YT-E-1 
1040  PRINT 

1030  IF  S5*0  THEN  PRINT  "THERE  MAS  NO  DRAGON  THERE _ 

1035  IF  8S-0  THEN  PRINT  "YOU  HAVE  WASTED  AN 

ARROW! ! " i GOTO  1150 
1060  PRINT  "WELL  DONE,  DUKE  “A* 

1070  PRINT  “YOU  HAVE  MIT" 

1000  PRINT  "A  FEROCIOUS  DRAGON" 

1090  GOSUP  1610 

1IOO  IF  RtJD  <  101  >3  THEN  1140 

1110  PRINT  “YOU  KILLED  I T * ! " : A < VT> =46: K=RND t 100) + 100 


1 120  PRINT 

1150  PRINT  "YOU  ARE  REWARDED  WITH  +“K t S*G+K i GOTO  1150 
1140  PRINT  '‘BUT  YOU  ONLY  WOUNDED  IT.....” 

1150  GQSUB  1610: RETURN 

t 1 AO  IF  H<  ]  THEN  PRINT  "ALL  VOUR  CHARISMA  IS" 

1165  IF  H<  j  THEN  PRINT  " - EXHAUSTED.  GOSUI-i 

!6lO:SOrO  1130 

1170  PRINT  "YOU  HAVE"25-H"UN1TS  OP  CHARISMA  LEFT" 

1100  IF  0>O  THEN  PRINT  "YOU  AMASSED  Via"  WORTH  OF  GOLD" 

1190  PRINT SPRINT 

1200  ACE) =?2 

1210  FOR  J=1  TO  100 

1220  PRINT  CHR$  <A<  J  )  >  |  '*  "* 

1230  IF  10*INT(J/10>=J  THEN  PRINT 

1240  NEXT  J 

1250  GDSUB  (610 

1260  IF  0=9  THEN  END 

1270  RETURN 

12SO  CLS i PRINT* PRINT i PRINT 

1290  PRINT  '  WELCOME  TO  THE  WORLD  OtF"s 

PRINT  .  ”  DRA60NFEAR" 

1300  PRINT  ”  YQUft  MISSION  15  TO  EXPLORE  THE" 

1310'  PRINT  “CAVES  OF  DRABUNWONLD .  LOOK  LI-10  FOR" 

1320  PRINT  "TREASURE,  AND  ATTEMPTING  TO  SLAY" 

1330  PRINT  “THE  FEARSOME  DRAGONS  WMO  LIVE  IN" 

1340  PRINT  ‘THE  CAVES.  WHAT  15  YOUR  NAME"; 

135i3  INPUT  A* 

1360  CLSi PRINT* PRINT  "ALL  HAIL.  DUKE  “AH 
1370  PRINT I  PRINT  "YOU  START  THIS  EXPLORATION" 

1300  PRINT  ‘WITH  23  UNITS  OF  CHARISMA,  AND" 

1390  PRINT  “YOU  MUST  COMPLETE  YOUR  TASK” 

1400  PRINT  *  BEFORE  THE  CHARISMA  IS  WORN  OUT." 

1410  PRINT  •  YOU  LOSE  ONE  UNIT  FOR  EVERY"; 

PRINT, "HOVE  YOU  MAKE" 

1420  T*-INKEY»J T4-INKEY* 

1430  PRINT* PRINT  "PRESS  ANY  KEY  TO  BEGIN" 

1440  IF  INKEY*-”"  THEN  1440 

1450  CLSa PRUNTD224,  "PLEASE  STAND  BY,  DUKE  "A* 

1460  DIM  A C 100) : H=0: Q»Oi L»Ot U *0* AK»6 
1470  FOR  B=L  TO  100: A <B) =46 

1 4 BO  JFBs  1 2QRB >90OR 1 O* I NT  CP/ JO) “BOR  K'fc INT  <B/10> 

-D-I  THEN  ACBJ^OS 


i4?o  next 

1500  FOR  D-*l  10  5i  RESTORE ;  FOR  D-l  TO  5 

1510  Z=RMD<76 M- 1  2: IF  0(Z>=Ba  THEN  1510 

1520  READ  CsA<Z)=C 

1530  NEXT  D,B 

1540  DATA  B8,6J, *0.81 ,36 

1550  FOR  B= 1  TO  8: READ  Z:P  f  60-ZsNEXT  B 

t560  DATA  -11,-10,-9,-1,1,7,10,11 

1570  E«35 

1580  RETURN 

1590  REl'l 

1600  REM 

1610  FOR  0-1  TO  3000: NEXT  OjREHJRN 

1620  PRINT  "YOU  CANNOT  MOVE  THAT  WAV’” 8 GU TO  150 
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Simulations 

Simulations  ere  aay6  of  producing  a  counterfeit 
reality.  In  contract  to  ADVENTURE,  whore  the  reality 
created  via  the  computer  it  often  nnglcal  end  dream¬ 
like,  the  worlds  accessed  through  computer  simula¬ 
tions  are  generally  more  down  to  earth. 

In  a  simulation,  the  computer  manipulate*  variables 
In  accordance  with  formulae  you'vo  specified, 
keeping  tabs  on  the  unfolding  of  the  situation 
you've  generated,  and  taking  the  place  of  the  envir¬ 
onment  In  tame  of  reacting  to  your  input. 

Simulation*  attempt  to  replicate  life.  However,  be¬ 
cause  reality  1 ■  notoriously  hard  to  pin  down  and 
limit,  we  need  to  do  some  pretty  drastic  simplif¬ 
ication  before  we  can  produce  a  workable  simulation. 

Despite  thl b  simplification  —  as  you'll  soon  see  — 
a  well-written  eimulation  oin  imitate  life  to  Bn  un¬ 
canny  extent.  Cause  and  effect  ere  llnkBd  as 
eceuretely  es  you  can  daviaa  formulae  Tor  them.  The 
random  number  generator  can  take  the  place  of  euch 
things  at  changes  in  the  weather,  In  population 
numbers,  In  the  behovlor  of  molecules  In  a  gee  or 
tha  way  o  colored  ink  1e  dispersed  through  s  clear 
Liquid. 

In  this  section  of  the  book  wa  have  three 
simulations.  On*  of  them  —  MISTRESS  OF  XENOPHOBIA 
—  la  slapLe  to  the  point  of  abourdity,  but  it  1e 
greet  fun  to  play,  an  you  tinker  with  the  fete  Of  an 
entire  planet.  The  other  two  —  RURAL  PURSUITS 
(where  you  run  a  form  with  extremely  fickle  workers) 
end  CHAIRMAN  OF  THE  BOARD  (where  you  run  e  factory 
thet  could  produce  any  one  of  a  range  of  products 
Including  kazoo*,  pith  he Lmete  or  Bky  hooks)  —  ere 
a  little  eore  carious,  end  the  formuLoo  employed  in 
them  produce  results  a  little  closer  to  'reel  life'. 


Donpito  t  h  a  tof1ou6nm  of  the  last  two  I  mentioned, 
they  are  still  great  fun  to  play*  ae  you'll  top  whan 
you  gat  then  up  and  running. 

If  you  went  to  Know  fiare  about  writing  simulations 
the  booklet  Design  i  ng  Clotcroon  Simulations  by  Glenn 
Pete  nnd  Hugh  Parker,  Jr.,  will  be  of  help.  Aa  well, 
Creative  Computing  magazine  has  printed  two  articled 
which  are  vary  valuable.  These  are  "How  to  write  a 
computer  simulation"  by  the  magazine1*  ertawhila 
editor,  David  AtiL,  which  appeared  In  the 
Jan/Feb  (19781  ictue  of  the  magazine  (end  Is  the 
text  of  e  talk  David  presented  at  the  Conference  an 
Computers  in  the  Undergraduate  Curricula  in  Pullman, 
Washington,  in  June  1974),  and  “Strategies  for 
Successful  Simulation'1  by  Bruno  B  Wolff,  Jr.  which 
was  in  the  August  1981  issue.  It  is  worth  checking 
your  library  for  these  back  issues,  as  you'll  learn 
a  lot  of  value  by  reading  them.  Of  particular 
IntaroBt  in  the  Wolff  article  is  e  sat  of  four 
equotions  which  link  cause  and  effect  end  can  easily 
be  adapted  for  a  simulation  you  write. 


MISTRESS  OF 

XENOPHOBIA 

We'Ll  start  our  exploration  of  ei  mu  l  at  i  one  with  the 
si Llieet  one  of  tho  lot,  MISTRESS  OF  XENOPHOBIA, 
which  1 9  based  on  a  progroo  written  by  Alaetsir 
GourLoy,  a  talented  progrswmer  who  lives  in  Glasgow. 

There's  no  need  to  explain  MISTRESS,  as  the  program 
gives  you  ell  the  prowpts  you  could  need. 

20  GOSUB  700 

30  REM  t»***t*.***>*»**«»«****** 

40  FOR  Y-l  TO  20 
30  CLS 

60  PRINTS  PRINT 

70  PR INT "Ml STRESS  OF  XENOPHOBIA, A  REPORT" 

80  PRINT-FOR  YOU  FROM  THE  DFFICE  UF  INFO 

-MAT ION  REGARDING  THE “ ; 
90  PRINT"  STATE  OF" i PRINT "YOUR  PLANET" 

100  PRINT”  IN  IHIS  YEAR  CJF  GRACE,  "IV94+V 

12U  PRINT " THE  PLANETS  POPULATION  IS" INT IP* INP |H)I 

130  GOSUB  BBO 

140  PRINTS  PRINT" THE  GROVELLING  PEASANTS  COULD  " 

150  PRINT "WORK  SGNE"L"ACRE5  THIS  YEAR - " 

160  GOSUB  BBO 

170  PRINT  "YOUR  TREASURY  HOLDS  GOLD,  GEliS" 

1 BO  PRINT-RND  COINS  WORTH  *'INT(U> 

190  GOSUB  880 

200  PRINTjPRJNT  "TIME  TD  ISSUE  A  DECREE _ " 

210  PR I NT i PR INT" HOW  MUCH  LAND  IS  TO  RE  FARMED" 

220  INPUT  "THIS  YEAR'" ;  W 

230  U-U-WMO 

240  IF  UU  THEN  7S0 

250  L-L+W 

260  GOSUB  R0O 

270  PR 1 NT  s  PR  I N T ” AND  HOW  MULH  WILL  YOU  SPEND" 

280  INPUT "ON  FOOD  FOR  THE  PEASANTS" ;W 
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290  U»U-W*10 

300  IF  U<1  THEN  700 

310  fi-RNDllO) 

320  I30SU&  890 

330  IF  P-W4R*3>P/4  THEN  3GSU&  S60 
340  P-P*RND< lOOO) /lOOO* <W*ft*5-P) 

350  IF  P  > 1 49  1  HEN  410 
360  GO SUB  980 

370  PR1NT"7H£  POPULATION  OF  XENOPHOBIA  IS" 

380  PRIMT"NOW  DOWN  TO"  1NT  CF  >  "AND  THAT1' 

390  PRINT" JUST  AIN’T  ENOUGH,  YOUR  XENG": SOUND  8,8: 

SOUND  7,7 

393  SOUND  6, 6: SOUND  3.5:5ClUND  4, 4: SOUND  3,3: 

SOUND  2, 2 t SOUND  1,1 

400  GOTO  480 

410  U=U+ 1NT<P*L> /93 

420  NEXT  V 

430  PRINT  sPRINT I  PRINT "WELL,  YOUR  XENOPHOBIC,  THAT  * S“ 
440  PRINT"  IH€  END  OF  YOUR  20  YEAR  OOMINAT-ION  OF 

OUR  LITTLE"; 

4 SO  PR INT "PLANET. " « PRINT" YOU  MANAGED  IGH 
460  PRINT "ACCUMULATE  5QME  *"U"WHICH" 

470  PRINT"  1  GUESS  AIN'T  TQCJ  BAD...." 

480  GO SUB  880 

490  PR 1 NT :  PR 1NT "IF  YOU’D  LIKE  ANOTHER  SHOT" 

SOO  PRINT "RULING,  THEN  JUST  PRESS  ' V'  UR" 

510  PRINT “PRESS  'N'  . 

520  A*= INKEY* 

530  IF  A«0"Y"  AND  A*<  >"N"  THEN  520 

540  IF  A**'Y“  1H&N  RUN 

550  PR I NT" YOUR  WISH  IS  MY  COMMAND" 

560  PR  I  NT" OH  MISTRESS  OF  XENOPHOBIA" :END 

570  REM  ««t:»u*UUHMMUU 

560  PRINT-OH  DEAR!  THERE'S  NOT  ENOUGH  FOOD 

FOR  EVERYONE. ..." 

585  PRINT: PRINT "HORRORS,  YOUR  XENONESS" 

590  PR  I NT "THERE’S  BEEN  A  REBELLION!''"’ 

600  PRINT  "THE  PEASANTS  ARE  REVOLTING" 

610  PRINT" U  HAD  TO  PUT  THAT  LINE  IN)" 

620  GOSUB  680 

630  IFRND (3) =1  THEN PR I NT "AND  YOUR  COPS 

COULDN’T  STOP  I  HEM" : GOT G48U 


SO 


640  PRINT "BUT  YOUR  RUTHLESS  POLICE  HAVE" 

650  PR  I NT "PUT  A  STOP  TO  ALL  THAT  NONSENSE " 

660  GDSUB  880 
670  RETURN 
680  NEXT  Y 

690  REN  lttlM*t****t*t»*****»« 

700  REM  INITIALISATION 
720  CLS 

730  P=PEEk tRND<32767> ) :H-P 
740  U“700«RND<550) 

750  L=70+RND  <  50) 

760  RETURN 

7 70  REM  *********************** 

780  REM  BANKRUPTCY 

790  PR I NT: PR I NT 'WELL,  XEND.  THATS  A  FINE" 

BOO  PR I NT "MESS  YQU^VE  GOT  YOURSELF,  ANO 
810  PR I NT “OUR  LITTLE  PLANET  INTO. “ 

820  GOSU8  880 

830  PRINT: PR I NT" THE  TREASURY  IS  BANKRUPT '• " 

840  GOSUB  880 

850  PRINT :  PRINT"  AND  GUESS  WHO  BLEW  IT7?777'?T>7''" 
B60  GOTO  490 

870  REM  ttMItmitmtllllltM 

BBO  REM  OELAY 

B90  FOR  J=1  TO  1500  sNEXT  J 
900  PRINT 
910  RETURN 


RURAL  PURSUITS 

If  you've  survived  being  MISTRESS  OF  XENOPHOBIA,  you 
■ay  be  interested  in  something  a  little  more  earthy 
—  running  »  fern.  In  RURAL  PURSUITS,  based  loosely 
on  a  pros  ran  written  by  Stephen  Glen,  also  of 
Glasgow,  you  heve  e  very  difficult  task,  ee  you 
battle  with  an  extrenely  touchy  work-crew  to  brinQ 
home  the  bacon  (or  at  least  the  wheat  end  barley). 

Again  the  program  la  largely  cn l f-p ro»p ting,  and 
working  with  it  will  teach  you  the  best  strategy  for 
gaining  a  naxtaum  return  free  your  farm  (and  surviv¬ 
ing  for  the  requisite  10  years  ta  win  the  game]. 
However,  e  few  hints  will  not  go  astray.  Although 
you  can  save  eoney  by  paying  your  workers  extremely 
badLy,  you'll  find  they'll  desert  you  In  droves  In 
the  following  year,  end  the  return  you  get  from  your 
lend  Is  dictated,  to  sown  degree,  by  the  number  of 
people  you  have  working  on  the  lend. 

Another  factor  to  keep  In  ni nd  is  that  the  three 
crops  which  you  can  plant  heve  quite  different 
returns,  eo  it  is  in  your  Intereel  to  work  out  which 
ie  the  most  profitable  crop,  end  concentrate  on 
that. 

Do  not  be  dienoyed  If  you  foul  the  process  up  the 
first  few  times  you  run  the  progree.  You'll  have  to 
develop  some  ree L  skills  to  keep  your  fere  solvent, 
□nd  it  nay  take  you  eeverel  bed  years  to  get  the 
hang  of  it. 

10  REM  RURAL  PURSUITS 
20  VR=l 

40  MO=RND I lOOO) +7000 
SO  LA*RND (1000) ♦ IOO 
60  AC=RND(20O)+300 
70  CS«RMK3) +8 
oo  BA-ovWH=o*ca»o 
90  GOSUB  170 
IOO  BOSUB  290 
HO  IF  YR*TO  THEN  750 


120  IF  MQ< 1  THEN  790 
130  IF  LA< 1  THEN  820 
140  VR=VR+1  j  AC-AC+INT  (AC/RNDUOOI  ) 

130  CS=CS+INT<l2,5*CS/1001 
160  GOTO  SO 
170  REM  UPDATE 
180  CLS 

190  PR I  NT  "YOU  HAVE  ‘S’*  MO"  IN  YEAR  "  YR 
200  GOSUB  800 

210  PRINT "YOU  ARE  EMPLOY I NS” LA 
220  PR I NT "LABORERS,  WORKING  FDR" 

230  PR I NT "YOU  ON" AC "ACRES" 

240  GOSUB  aSOiFQR  V“ 1  TO  IOOOiNEXT  Vt 

PRINT  "PRESS  ANY  NUMBER" 


245  IF  VAL I IM<EY*)*0  THEN  245 
250  PRINT "CROPS i T  AB ( ?  > ; CO" CORN " 

260  PRINT  ,  DA,rBAF<LEY" 

270  PRINT  , WI-TWHEAT" 

280  RETURN 

290  PRINTi  PRINT” IT  WILL  BE  V'CS^N" 

300  PR  I NT "GENERAL  COSTS  TO  WORK  EACH" 

310  PR  1 NT " ACRE . . . AND  SO  THE  MAXIMUM" 

320  PR  I NT "NUMBER  OF  ACRES  YOU  CAN" 

330  PR  1  NT "WORK  THIS  YEAR  IS" I 

340  MAX=INT <MD/CS> : IF  NAX>AC  THEN  MAX-AC 

350  PRINT  MAX 

360  PR  I NT "HOW  MUCH  LAND  DO  YOU  WANT  TD" : 

PRINT  "HARVEST*' | 

370  INPUT  L 

380  IF  L  .'MAX  THEN  370 

390  KD»MO-D»D5 

400  GOSUB  170 

410  PRINT : PRINT "HOW  MUCH  WILL  YOU  PAY  EACH  " x 


420  INPUT  U 

430  IF  W»LA>MO  THEN  420 
440  MQ-ITC1-LA4W 
450  GOSUB  170 


PR I NT "WORKER » , 


460  P»10 

470  PRINT’-WHAT  PROPORTION  (OUT  OF  TEW>  DO" 

400  PR I NT* YOU  WISH  TO  CONCENTRATE  ON  CORN"; 

490  INPUT  CP 

500  IF  CP>P  THEN  490 

510  P=P-CP 
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520  PRINT : PR I NT "OF  THE  REMA INI NG MP" OUT  OP  TEN," 

530  PR I NT “HOW  MUCH  WHEAT  DO  YOU  WAMT  TO  PLANT" 

540  INPUT  MP 

550  IF  WP>P  THEN  540 

560  P-P-UP 

570  GOSUB  870 

580  PR  I  NT  "STAND  BY  FOR  A  YEAR - ’* 

590  FOR  Z»l  TO  2000: NEXT  Z 
600  BA=INHP*L*LA1W*3/100000) 

610  C0=INTCCP*L«LA*W»2. 7/17000) 

620  WH= I  NT i UP ILILASWI 1.4/9300) 

630  T=BA-t-CO+WH 
640  COSUB  170 

650  PRINT:  PRINT  T"TCINS  WERE  HARVESTED" 

660  RT»INT(  <.5+0.7*BA*5,94»CD-»2.2*WH>4  <CS-CX+l>  > 

670  IF  BA-0  AND  CO-O  AND  WH=0  THEN  RT»0 

680  FOR  Z=1  TO  2000: NEXT  Z 

690  PRINT: PRINT" AMD  YOUR  TOTAL  RETURN" 

700  PR TNT "WAS  *"RT 
710  MO=MO+RT 

720  LA«INT<LA-LA/(W:-.OX)  > 

730  FOR  7=1  TO  2000: NEXT  l 
740  RETURN 
750  GOSUB  070 

760  PRINT  "YCIU  HAVE  SURVIVED  FOR  10  YEARS" 

770  PR I NT "CONGRATULATIONS! " 

775  IF  MO>lE+ 12  THEN  GOSUB  900 
780  PRINT  "AND  GAINED" MO “MONEY" : END 
790  GOSUB  870 

800  PRINT  "YOU  HAVE  GONE  BROKE'" 

810  END 

820  0OSUB  870 

830  PRINT  "YOU  HAVE  NO  WORKERS,  AND" 

B40  PRINT  "HAVE  BEEN  FORCED  TO  SELL" 

850  PRINT  , "YOUR  FARM" 

960  END 
870  CLS 

880  PRINTrPRJNT 
890  RE TURK 

900  FOR  TU=1  TO  33: READ  FR,DUs SOUND  FR,DUs 

NEXT  TU: RETURN 


910  DATA 
920  DATA 
930  DATA 

940  DATA 


16, 3, 18,2,20,3,20, 1,20,2, 18, 1,20*2*21, 

20,2, 10,3, 18, i, 18,2, 16,2,18,2,20,3, 16, 

16.3,  18,2,20,3,20,  1,20,2,  18,  1,20,3,21, 

23  3  23  5 

25.4.23.3.21.2.20.3,  18,2,  16,5 
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CHAIRMAN 

OF  THE  BOARD 

Finally  In  this  eactfon  »  ■  have  our  maj  a  r 
a  i  mu  Loti  an,  CHAIRMAN  OF  THE  BOARD. 

Again  the  program  Is  largely  sa  If-prooptl ng .  The  aim 
of  the  gaae  Is  to  keep  your  Factory  running  until 
you  menage  to  make  *10,000  (in  total,  combining  the 
value  of  stock  In  hand  plus  your  capital).  You  heve 
to  deal  with  recalcitrant  unions  (eho  won't  always 
let  you  Fire  the  people  you  wish  to  gat  rid  of,  end 
heve  a  greet  appetite  For  pay  rises  which  you  cannot 
deny),  with  workers  who  will  hardly  ever  meet  the 
production  targets  you  set,  and  raw  materlaL 
suppliers  who  anjoy  putting  their  prices  up  as  much 
es  the  unions  enjoy  slugging  you  For  more  pay. 

You'll  Find,  in  contrast  to  the  other  two  programs 
which  are  only  very  vogue  approx  1 meti one  to  'real 
Lire1  that  the  Life  and  health  of  your  fsotory  will 
become  very  iaportant  to  you,  and  you’ll  certainly 
learn  ways  of  manipulating  resources  for  maximum 
return.  Keep  in  mind  that  although  you  heve  greet 
freedom  in  setting  the  ratal L  price  of  your  prod- 
ucter  each  rise  in  price  will  Increase  consumer 
resistance  to  purchasing  those  products. 

10  REM  CHAIRMAN  OF  THE  BOARD 
20  GOSUB  1670: REN  INITIALISE 
30  UIE=WE*1 

40  QOSlifr  930:  REM  REPORT 

50  GOSUB  1300: REM  STAFF 

60  GO SUB  930s HEM  REPORT 

70  GOSUB  11 30: REM  PRODUCTION 

BO  GD5UB  9.30s REM  REPORT 

90  GOSUB  730: REM  SALES 

IOO  GOSUB  140: REM  PROBLEMS 

110  CA-CA-WASMO-RC 

120  GOTO  30 

130  REM  ******** 

l 40  REM  PROBLEMS 
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150  CCS 

160  IF  RND  (OK.  43  THEN  260 
170  A-RNDC7> 

180  PRINTiPRINTiPRINf 

190  PRINT  "THE  UNION5  ARE  DEMANDING  A* 

200  PRINT  "PAY  RISE  0F"A"2" 

210  WA-IMT  (  1O0*  <WA-hWA*A/100>  )  /100 
220  60 SOB  1840 

230  PRINTiPRINT  "PAY  PER  EMPLOYEE  IS  NOW  VMA 
240  GOSUB  1840 
250  OLS 

260  IF  RND  (OK.  81  THEN  410 
270  PRINT: PR I NT : PR  I NT 

200  PRINT  "A  FIRE  IN  YOUR  WAREHOUSE  HAS" 

290  PRINT  "DESTROYED  SOME  STOCK.  PLEASE" 

300  PRINT  "STAND  BY  FOR  A  REPORT  ON" 

310  PRINT  "THE  DAMAGE  CAUSED. . . " 

320  GOSUB  1840 
330  A=RNDCST/2> 

340  ST-ST-A 

350  pRINTsPRINT  " THERE  HERE*' A; A* 

360  PRINT  "DESTROYED.  THEY  WERE  " 

370  PRINT  "WORTH  •*"A*SPMRETAIL" 

380  GOSUB  1840 

390  PRINT  "STOCK  IN  HAND  IS" 

400  PRINT  "NOW "ST ? A* 

410  IF  RND (0) >. 3  THEN  360 
420  CLS 

430  PRINT i PRINT 

440  PRINT  "YOUR  MAIN  SUPPLIER  HAS  ANNOUNCED* 
450  PRINT  "A  DRAMATIC  PRICE  RISE..." 

460  GOSUB  1840 

470  A=«ND < 1O04COY 7 > /ICO 

*180  IF  A<  1  Tt-CN  470 

490  PRINT:  PR  I NT " T HE  COST  OF  MAKING  "A» 

500  PRINT  "HAS  RISEN  BY  ♦"A"EACM" 

510  GOSUB  1840 

520  CO  “  CO  ♦  A 

530  PRINTiPRINT  "IT  NOW  COSTS  *"C0 
540  PRINT  "TO  MAKE  EACH  ONE..." 

550  GOSUB  1840 

560  IF  RND  CO)  <  .65  AND  MA  <  SP  THEN  RETURN 
570  CLS 

580  PRINT tPRINT 
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590  PRINT  "YOU  HAVE  A  CHANCE  TO  RAISE" 

600  PRINT  TAB  <  4>  j “YOUR  PRICE*  YOUR' 

610  PRINT  A* i  *'  NOW  SELL  FOR  4"SP 
620  GOStJB  IB40 
630  PRINT 

640  PRINT  -WHAT  PERCENTAGE  INCREASE  WOULD" 

650  INPUT  "YOU  LIKE  TO  IMPOSE*';  A 
660  RE=RE+A 

670  SP-INTUOO*  <SP+A*SP/100>  )  /TOO 
680  GOSUB  1840 

690  PRINT i PRINT  "THE  "A*"  NOW  SELL  FOR  *"SF 
700  GOSUB  1840 
710  RETURN 
720  REM  **•*« 

730  REM  SALES 

740  PR] NT: PRINT  "YOUR  TOTAL  STOCK  OF" 

750  PRINT  A*"  IS"ST 
760  GOSUB  1840 

770  PRINT SPRINT  "PLEASE  STAND  BY  FOR  A" 

780  PRINT  "SALES  REPORT..*" 

790  A*INHftND<0>*ST/<RE/1000>  >-M 
BOO  IF  A,>ST  THEN  790 
810  CLS 

820  PRINT SPRINT 

830  PRINT  “THE  TOTAL  NUMBER  OF  "A* 

840  PRINT  "SOLD  IS"A 
850  ST=ST-A 
860  ZA«A*SP 

870  PR I NT: PR I NT  "THE  INCOME  FROM  THAT" 

080  PRINT  "SALE  WAS  *"ZA 
890  CA-INT tA*SP*lO0J /10CM-CA 
900  GOSUB  1840 
910  RETURN 

920  REM  *$«»»*******»*»«*****» 

930  REM  REPORT  TO  THE  CHAIRMAN 
940  CLS 

950  IF  CA^ST < 1  THEN  1510: REM  BANKRUPTCY 

960  IF  CA+ST>9999  THEN  PRINT  "YOU’VE  MADE  610000  AND 

965  IFCA+ST >9999THEN  PRINT’1  CAN  MOW  RETIRE _ "  : 

GOSUB 1040s  GOTO  1590 

970  PRINTiPRlNT  "SHOP  FLOOR  REPORT,  SIR," 

990  PRINT  TAB <61 | "FOR  WEEK "WE 

990  PRINTiPRlNT  "CAPITAL  IN  HAND  IS  *'* 

INT I CA*1 00)7100 


78 


iOOO  PRINT  "RUNNING  COSTS  ARE  *"RC"A  WEEK" 

1010  PR  I Ml  SPRINT  "YOUR  STORES  HOLD “ST ; A$ 

1020  PRINT  TAB<6> ; "WORTH  *“ INT <3T*5F* 100) / 100 
1030  PRINTsPRINT  "THEY  SELL  FOR  V'SP"  EACH" 

1040  PRINT  “AND  COST  * “CO "EACH  TO  MAKE “ 

1045  IF  INKEY»s>'*  '•  THEN  1045 

1050  PR I NT i PR  I NT  “YOUR  WORKFORCE  IS  NOW" 

1060  PRINT  WO "ST RONS.  AND  YOU  ARE" 

1070  PRINT  "PAYING  THEM  *"WA"EACH" 

1080  PRINT  "THE  WAGES  BILL  THIS  WEEK  IS  VMAtWO" 
1090  PRINT! PR  I  NT  “EACH  PERSON  CAN  MAKE “PR 
UOO  PRINT  A*"  A  WEEK,  A  TOTAL" 
l  110  PRINT  "OUTPUT  OF"PR»WO 
1120  RETURN 

1130  INPUT  "HOW  MANY  DO  YOU  WISH  TO  PRODUCE" j MA 
1140  IF  MA=0  THEN  RETURN 
1150  PRINT 

tlfeO  IFMA*CO>CA  THEN  PRINT "YOU  DO  NOT  HAVE 

ENOUGH  MONEY "j GOTO 1 130 
1170  IF  MA>PR*WO  THEN  PRINT  "YOU  DO  NOT  HAVE 

ENOUGH  PEOPLE" 

1170  if  MA>PR*WO  THEN  PRINT  TAB  <6>  5  “TH<*T  MANY" i 

GOTO  1130 

1180  PRINT  "YES  SIR... THE  TARGET  FOR  WEEK "WE 
1190  PRINT  "1S"MA{A* 

1200  MA“INT (MA-RND (O) »NA/5) 

1210  6C1SUB  1840 

1220  PR I NT: PR I NT  “THE  NUMBER  OF  “A* 

1230  PRINT  "ACTUALLY  PRODUCED  IN  WEEK"ME 
1240  PRINT  "WAS"NA". . . " 

1250  ST«ST»*1A 
1260  CA«CA-CO*MA 
1270  GDSUB  1 840 
1280  RETURN 
1290  REM  ***** 

1300  REM  STAFF 

1310  PRINT  "HOW  MANY  PEOPLE  DO  YOU" 

1320  INPUT  "WISH  TO  HIRE") A 
1330  WCJ=WO+A 

1340  F'RINT i PRINT  "THE  TOTAL  WORKFORCE" 

1350  PRINT  "IS  NOW "WO "STRONG" 

1360  GOSUB  1840 

1370  IF  A.*0  THEN  RETURN 
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1380  GO SUB  930 

1390  PRINT  "HOW  MANY  PEOPLE  DO  YQIJ- 
1400  INPUT  -WISH  TO  FIRE" »A 
1410  IF  A»0  THEN  1480 
1420  IF  A>WO  THEN  1390 
1430  A=*RND<A> 

1440  GOSUB  1840 

1450  PRINT ; PRINT  "THE  UNIONS  WILL  ALLOW" 

1460  PRINI  -YOU  TO  GET  RID  OF“A 

1470  WOWO-A 

1480  GOSUB  1840 

1490  RETURN 

1500  REM  immiMN 

1310  REM  BOTTOM  LINE! 

1520  PRINT  t  PRINT  “YOU'RE  BANKRUPT !  !"i SOUND  3,8 
1530  GOSUB  1840 

1340  PR I  NT : PR I NT  “OH  THE  SHAME  OF  IT,,M:SOUND  3,8 
1550  GOSUB  1840: SOUND  1,8 

1560  PRINTiPRINT  "STILL. YOU  KEPT  THE  BUSINESS" 
1370  PRINT  “GOING  FOR "WE "WEEKS" 

1580  GOSUB  1840 

1590  PRTNT  “ENTER  ’Y’  FOR  ANOTHER  STINT" 

1600  PRINT  "AS  CHAIRMAN  OF  THE  BOARD _ " 

1610  PRINT  " <0R  ' N'  IF  YOU  WANT  TO  QUIT)" 

1620  A*= INKEY* 

1630  IF  A* O “ Y “  AND  A*<>"N"  THEN  1620 
1640  tF  A*“" V"  THEN  RUN 
1630  END 

1660  REN  illMtlllt 

1670  REM  INITIALISE 
1690  FOR  2«1  TO  RND  <8) 

1700  READ  A* 

1710  NEXT  Z 

1720  CA=500+RND<500) 

1730  ST-100+RND<300> 

1740  SP= 1 O+RND (5> 

1750  CO*<7+RND(5> 

1760  IF  CO>SP  THEN  1750 
1770  W0=»7+RND(10> 

1780  WA«12t-PND(SP> 

1790  PR=5+RND<6) 

1800  RC= 1 OO+RND  <  20  > 

ieio  we-0 

1820  RE= 1 t REM  RE  IS  SALES  RESISTANCE  FACTOR 


1050  RETURN 

1040  R04  DELAY  SUBROUTINE 

1050  FOR  2=1  TO  3000? NEXT  It RETURN 

1860  DATA  "EPONYHS" , "B I CYCLES", "HARMONICAS" 

1070  DATA  "KAZOOS” , "LECTERNS", "MOLESKINS" 

1890  DATA  "CARPETBAGS'* ,  “PI  TH  HELMETS*' ,  "SKYHOOKS" 
1090  DATA  "BARBELLS 
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Dice  Games 


Dice  gases  —  for  high  atekaa,  Lon  stakes  or  none  — 
have  proved  popuLsr  throughout  history.  Whether  ths 
dlca  were  made  from  stone  or  wood,  or  carved;  from 
the  bones  of  a  boast  killed  for  food,  whether  they 
had  four  Important  aidnt  or  til,  dice  heve  proved  a 
diversion  for  countless  man  throughout  time. 

The  dice,  physical  means  of  demonstret 1 ng  the 
weywerdneea  of  chance,  have  also  found  employment  In 
fortelllng  ths  future,  end  llko  sit  oracles, 
probably  beer  soma  responsibility  for  chsnplfig  the 
tide  of  history* 

At  Troy  ths  Greeks  played  with  dice,  as  did  Hark 
Antony  at  Alexandria.  Italy  and  France  Lad  sedtaval 
Europe  In  ita  Lavs  for  dice,  and  devotion  to  the 
six-sided  cubes  ties  continued  up  to  the  present  day. 
In  this  section  of  the  book,  me'll  be  investigating 
mays  of  using  the  random  number  generator  of  your 
computer  to  teke  the  piece  of  physical  dice. 
However,  you '  I L  discover  that  the  dice  are  no  Lass 
compelling  bocouea  they  exist  only  within  ths 
software  of  your  computer  rather  than  In  a  wore 
gross  physical  form. 

Playing  against  the  computer,  instead  or  againat 
another  human  being,  changes  tho  'feel*  of  dies 
gents  somewhat.  Not  having  to  pay  up  when  you  Lass 
1g  one  of  ths  reel  advantages! 

To  start  our  dice  games,  here's  a  routine  you  might 
like  to  incorporate  into  some  of  your  own  dice 
prog  runes 

2000  REM  DICE  THROW 
2010  CLSiCOLOR, 1 
2020  PRINT  T AS ( 1 2  > ; "DIE" DN 
2030  D-RWD(fa) 

2040  FOR  1-29010  TO  28022? POKE  I, 140? NEXT  r 

2030  FOR  I >28010  TO  290 b6  STEP  32: POKE  J,138iNEXT  l 


2060  FOR  1=2966*  TO  29079iP0KE  I,13i:NEXT  I 

2670  FOR  1-29022  TO  29070  STEP  32iPOKE  I,133iNEXT  I 

2090  POKE  26310, 142: POKE  29066, 139: POKE  29078,135: 

POKE  28022,141 

2090  IF  D»1  THEN  2150 

2100  IF  D=2  THEN  2160 

2110  IF  D-3  THEN  2170 

2  3  20  IF  I>=4  THEN  2100 

2130  IF  b=S  THEN  2190 

2140  IF  06  THEN  2200 

2150  POE  2B944, 143: GOTO  2220 

2160  POKE  28076, 143: PUKE  29012, t43:G0TD  2220 

2170  PIKE  28076, 143: POKE  20944 , 1 43 i POKE  29012,143: 

GOTO  2220 

2180  POKE  28076, I43t POKE  29004, 143: POKE  29884,143: 

POKE  29012,143 

2105  GOTO  2220 

2190  POKE  20976, 143: POKE  29004, 143 :POKE  28084,143: 

POKE  29012, 143 

2195  POKF  20944, 143: GOTO  2220 

2200  POKE  28876, 3 43: POKE  29004, 143 I POKE  20884,143* 

POKE  29012,143 

2210  POKE  20940, 143: POKE  28940,143 

2220  FOR  1=1  TO  2500: NEXT  I : COLOR, O: RETURN 

In  this  program,  the  variable  D  represents  the  dice 
thrown,  end  UN  represents  the  dice  nutibar. 

An  anoreouB  rung®  of  gaitaa  is  now  played  with  dice 
and  they  sport  an  intriguing  variety  of  titlee.  Her 
are  tona  names  of  common  dice  programs: 

-  Going  to  Boston 
—  Crape 

-  Fifty 

-  Cng 

-  B«  t  eb  a  1 1 

-  Basketball 

-  Poker  Dig* 

-  Liar  Dice 

The  dies  games  we'll  be  playing  in  this  book  ere 
SNAKES  EYES.  DNE-AND-TWENTY ,  SEVEN/ELEVEN 

OVER  'N 'UNDER,  NO  SWEAT  end  CHEMIN  OE  COMPUTER. 


CHEMIN  DE 

COMPUTER 

CHEMIN  DE  COMPUTER  Is  based,  oa  I'm  urt  you've 
realised,  on  Chomin  da  Far.  In  this  game,  you  and 
your  computer  toko  It  In  turn*  to  roll  five  dice, 
adding  tits  pipe  up  as  you  go.  You  ere  oining  to  get 
a  higher  total  then  the  computer. 

However,  this  game  Is  not  Juet  a  simple  'odd  the 
pipe'  ona.  Any  dio  which  fell*  showing  e  five  or  e 
two  nuet  be  thrown  again,  end  your  total  is  just  the 
final  digit  of  the  answer  (that  1b,  a  total  of  27  i* 
counted  ee  7,  and  a  total  of  13  1b  counted  as  3). 

There  are  three  special  totals  -  7  (Natural),  6 
(Petite)  end  9  (Grande).  The  namae  ore  only  bestowed 
on  the  roll  when  the  relevant  total  is  achieved  on 
the  first  throw  |1 ,a,  the  dice  which  come  up  with  5 
or  2  hive  not  been,  end  era  not  in  this  case, 
rethrown).  You  (and  the  computer)  always  stand  on  a 
7,  B  or  B  thrown  with  the  first  toes  of  the  dice. 

As  in  many  Other  program  In  this  hook,  there  is  o 
delay  loop  routine  at  the  end  of  the  listing  which 
Is  called  a  number  of  t1me9  throughout  e  game  to 
Improve  the  speed  with  which  the  gene  advances,  and 
to  give  you  (In  many  oseoa]  e  chance  to  read  on  the 
scoen  whet  is  going  on  before  the  program  rates  on, 
c  Leer  1 ng  the  screen,  and  leaving  you  quite  unsure  of 
exactly  whet  hoc  juet  happened.  In  this  program, 
there  ere  two  loops,  one  which  Is  Longer  than  the 
other,  and  which  elao  prints  a  couple  of  blank  lines 
before  returning  to  the  main  program. 

lO  REM  CHEMIN 
30  CES 
40  GAME=0 
SO  Dl-Oi Pl=0 
hO  GOTO  330 
70  0=0:00 


H  1 


BO  FOR  G“ 1  TO  5:A»RND<6) 

90  IF  A=2  OR  A=5  THEN  C=C+1 
HX>  PRINT  A;: SOUND  31.1 
HO  GOSUB  930 

120  IF  A"2  OR  A -5  THEN  A-O 
130  0«D-*-A:  NEXT  G 
140  PRINT* PR I NT  D; 

150  IF  D>9  THEN  D-D- 10i PRINT: PRINT  D:60T0  150 
160  GOSUB  900 

170  PRINT: PR I NT  "TOTAL  ON  THE  FIRST  ROLE  IS'D 

180  IF  0=7  THEN  PRINT  "AND  THATS  LA  GRANDE ..." i RETURN 

190  IF  D=0  THEN  PRINT  "AND  THATS  LA  PETITE _ " t RETURN 

200  IF  0=7  THEN  PRINT  "AND  THATS  A  NATURAL RETURN 

210  IF  C=U  1HEN  RETURN 

220  GOSUB  930 

230  PRINT: PRINT  C*'MUBT  BE  ROLLED  AGAIN" 

235  FOR  2=1  TO  C: SOUND  3,1: NEXT  2 

240  FOR  AM  TO  C 

250  GOSUB  930 

260  E*RND<6i 

270  PRINT  E {  : SOUND  29,1 

280  IF  E>2  OR  E=3  THEN  E=0 

290  D«D«-E 

300  NEXT 

310  IF  1) >9  THEN  D**D-10s PRINT  D::GOTO  310 

320  RETURN 

330  GOSUB  930: CLS 

340  GAME=GAME-M 

330  PRINT: PRINT  "  >X>>  THIS  IS  GANE'GAME"  <*<<" 

360  print  "mmimmmMmtitmmt" 

370  PRINT  “  NOW,  I'LL  ROLL  AS  BANKER..." 

3BO  print 

390  BOGUS  70 
400  GOSUB  900 

410  PRINT : PRINT  "SO  NY  FINAL  TOTAL  1S"D 
420  GOSUB  900 

430  PRINT  *>JH*Stas*«Xt*tM«****»*4*tiM<X*S'* 

435  A6»-  1NKEY6:  A*="  " 

440  PRINT  '*  PRESS  7R*  TO  ROLL  YOUR  DICE" 

443  A*=fNKEY»r  IF  A*0"R"  THEN  445 

450  print  "**t»>»tMtt«t**r*t*t***s*tt**tt" 

460  J-D 
470  GOSUB  930 
4 SO  GOSUB  70 


B2 


490  PRINT:  PR  I  NT  "SO  VCIUR  FINAL  TOTAL  1S"D 
300  PRINT : PRINT 
510  GOSUB  930 

320  PRINT  "CQPUTE.R", “HUMAN" 

530  GOSUB  900 
540  PRINT  J,D 
550  GOSUB  9301  PRINT 

360  PRINT  ••4*6*.***l.'*.**’H.*Hi*.1;*1i******S*«»4“ 

570  PRINT  TAB<3>; 

580  If  J=D  THEN  PRINT  "THATS  A  ST  ANDOf  F“  t  GOTO  620 

590  IF  J  >D  THEN  PRINT  •' I  ’M"j  *61  “Bt  *-l 

600  IF  D>J  THEN  PRINT  "YOU'  RE" ? :  PI  =P  1  «•  1 
610  PRINT  "  THE  WINNER  THAT  Tltlt*'' 

620  PRINT  "•♦**********•♦*«.*«*♦*«*****«**•" 

630  PRINT:  PfrINJ 
640  GOSUB  900 

650  PRINT  '*  NOW  THE  TOTALS  SO  FAR  IN- 
660  PRINT  -  CHEMIN  DE  COMPUTER  ARE" 

670  PRINT  B 1 "FOR  ME,  AND"Pl"FOR  YOU..." 

680  PRINT: PRINT 

690  GOSUB  930 

700  IF  B1-*P1*9  THEN  750 

710  IF  B 1 >P1  THEN  PRINT  "  LOOKS  LIKE  I’M  IN  FRONT ■ M 

720  IF  PI >B1  THEN  PRINT  "  AND  YOU  SEEM  TO 

HAVE  THE  EDGE'* 

730  GOSUB  900 
740  GOTO  330 
750  REM  END  QF  6AMF 
760  PRINT: PRINT 

770  PRINT  "WELL,  OLD  BUDDY,  WE  SEEM" 

780  PRINT  "TO  HAVE  COME  TO  THE  END" 

790  PRINT  "Of  THE  GAME... WITH  A  TOTAL" 

BOO  PRINT  "OF  NINE  SC OR I MO  ROUNDS,.." 

810  GOSUB  900 

B20  IF  PI THEN  PRINT  “AND,  FUR  ONCE,  IT  IS" 

B25  IF  Fl>Bl  THEN  PRINT  "YOU  HAS  BEATEN  ME'-tGOTG  840 
830  IF  B1 >PI  THEN  PRINT  "AND,  ONCE  AGAIN,  THE" 

833  IF  81  PI  THEN  PRINT  "MIGHTY  MACHINE  PROVES  THE" 
937  IF  61>P1  THEN  PRINT  "SUPREME  CHAMPION1  "* 

840  GOSUB  900 

050  PRINT  "THANKS  FOR  THE  GAME,  OLD" 

B6C»  PRINT  "BUDDY, WE  MUST  DO  IT  AGAIN" 

870  PRINT  "SOME  TIME,  WHEN  YOU  FEEL" 


880  PRINT  "LUCKY . 

890  END 

900  FOR  Z-l  TO  ISOOiNEXT  l 
910  PRINT ; pR [NT 
9?0  RETURN 

930  FOR  I«l  TO  730* NEXT  Z* RETURN 
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SEVEN/ELEVEN 

SEVEN/ELEVEN  is  another  fine  dice  game,  end  one  in 
which  your  goal  changao  In  each  game*  Based  on 
CRAPS,  you  have  a  'target  nuiber'  to  reach  in  each 
round  (known  as  your  fpo1nt’  In  Craps). 

Crops  is  en  American  version  of  the  old  English  dice 
game  Hazard.  In  SEVEN/F LEVEN B  the  conpltx  betting  of 
crops  hoe  boon  removed,  Leaving  juet  the  fun  of  the 
game.  Rather  than  worry  about  coaputing  odds  and 
placing  'poos'  ond  'don't  poos'  bate,  you  can 
concentrate  on  the  serious  business  of  preying  for 
tho  right  roll  to  come  up. 

In  this  game  r  you  are  playing  against  yourself.  Your 
winning  end  losing  rounds  are  tallied,  so  you  know 
--  at  every  point  In  the  gone  just  how  wo L L  (or 
otherwise)  you  ore  doing. 

You  throw  two  dice  at  a  tine.  If  you  throw  a  2,  3  or 
a  12  with  your  first  roLLf  you  Lose  thet  round. 
Getting  a  7,  or  an  11,  on  the  first  roll  Is  the  bast 
thing  you  can  do,  beoouae  you've  won  that  round  with 
that  single  roll  (which  is  why  the  game  is  called 
5EVEN/ELEVEN) . 

Any  other  number  rolled  as  your  first  roll  of  b 
round  becomes  your  'tergal  number*.  You  have  to  try 
and  roLl  thle  again,  before  you  roll  n  7  or  an  11. 
If  you  nanege  to  ro l L  your  target  nusbor  again,  you 
win  that  round.  However,  rolling  a  7  or  an  11  before 
you've  rethrown  your  target  total,  ceueeB  you  to 
lose  that  round. 

10  REM  SEVEN  ELEVEN 
20  ElS  -  "IN  7/11  YOU'VE  ROLLED11 
30  G  =  0:*l  =>0i L  *  OsM  =  103 
40  CL5 

50  PRINTjPRINT  "IKE  TALLY  SO  EAR:” 

60  PRINT  ‘UINS:-W~  LOSSESs"L 
70  S  -  G  r  l 
teo  M  =  M  -  5 

as 


90  PRINT  "YOU  HAVE  *"M 

ICO  PR 1 N  f  i PR I NT  “THIS  IS  ROUND  NUMBER "G 
ilO  GOSUB  200 

120  IP  A- 7  DR  A»I1  THEN  300 

130  IFA=2  UR  A-3  OR  A- 12  THEN  300 

140  P=A 

150  CLS: PRINT :PR1NT “YOUR  TARGET  NUMBER  1S"P 

1*0  GOSUB  200 

170  IP  A=»P  THEN  300 

180  IF  A=7  OR  AMI  THEN  310 

190  GOSUB  340 i GOTO  130 

200  N=OaG*» INKEY* 

210  PR  I NT jPRINT -PRESS  ’R*  TO  ROLL* 

220  N-N+fci IF  INKEY*=i"*  THEN  220 

230  C  -  RND  <6)i  F’R  I  NT  ”  YOU  ROLLED  *Cs  SOUND  C+12,C 
240  GOSUB  340 

230  B=RND<6)  sPRINT-AND-'Bs  SOUND  B+24,B 
260  A=B+C 

270  PRTNTiPRINT  fct*;A 
280  GOSUB  340 
290  RETURN 

300  PRINT-ANl)  YOU'VE  WON" i W-W«-l s M-hM+20:  6010  320 
310  PRINT" AND  SO  YOU  LOSE " s LaL+l s SOUND  9,4 

: SOUND  6, 4 1  SOUND  4,6 

320  GOSUB  340 
330  GOTO  40 

340  FOR  T=1  TO  50OiNEXT  T 
350  RETURN 

360  PR I NT "SO  THATS  THE  END  OF  THE  ROUND" s GOTO  320 


NO  SWEAT 

Th b  nome  of  thie  game  —  HO  SWEAT  —  comes  from  one 
of  the  the  early  Eng  LI  ah  names  for  the  game  froe 
which  this  is  derived.  Known  as  1 Swuatc la th *  ,  the 
gone,  ihen  first  played  In  England,  used  throe  dice 
within  e  wooden  'shoo*.  The  east  cannon  variation 
of  this  gem*  1b  now  seen  in  US  gambling  casinos 
where  It  Is  called’  'Birdcage',  because  of  tha 
equipment  which  Is  uend. 

In  Birdcage,  three  dice  are  held  within  a  natal  ceg* 
which  con  spin  about  a  central  axle.  Once  bets  have 
been  laid,  the  cage  1e  rotated.  This  is  supposed  to 
ensure  that  the  dlea  ere  spun  properly,  ae  they  are 
not  actually  touched  by  e  casino  operator. 

Betting  In  Birdcage,  end  In  No  Sweet,  is  fast  and 
elnpla,  end  despite  the  fact  thee  you  night  think 
the  odds  are  In  your  favor  aa  a  ployer,  you'll 
quIokLy  learn  how  eaay  it  1b  to  lose  your  shirt. 

You  place  a  bet  of  a  specified  aaount  [eon  Lines  SO 
and  50}  up  to  the  size  of  your  stake  (held  by  the 
variable  H,  for  money  —  see  lines  30  and  250)  and 
then  chase  e  ftuwber  between  ono  and  six.  Tha 
aaount  of  your  bat  is  subtracted  fro*  your  stake, 
and  then  the  three  dice  ire  rolled.  For  ouch  ona 
which  lands  showing  your  nunbor,  you'll  have  an 
amount  equal  to  your  bet  returned  to  you. 

Aa  you  cen  See,  this  nnnriB  you  have  to  throw  one  die 
with  your  number  showing  to  trunk  even,  and  two  to 
actually  make  some  money.  The  need  to  throw  the 
aomc,  chOBan ,  number  twice  is  what  gives  the  casino 
euoh  »  good  edge  In  this  game. 

Lina  SO  asks  you  how  Much  you'd  like  to  bet,  and  the 
variable  A  is  assigned  to  your  choice.  This  is 
compared  with  the  money  you  actually  have  [in  line 
60)  to  ewe  if  you  ere  trying  to  bet  more  then  you 
have  on  hand. 


The  C  loop,  froi»  lines  100  to  1B0  rollo  the  dice, 
and  comperes  ouch  roll  with  your  number,  reporting 
to  you  after  each  roll.  Yoor  winnings  (if  there 
are  any]  ore  elec  added  in  this  Loop. 

After  each  round  of  the  game,  yaur  money  i W ]  1b 
compered  with  250  (if  you've  got  more  than  8250 
you've  exceeded  the  house  limits  era  art  therefore 
excluded  from  future  play)  end  with  zero  (those  mho 
have  no  money  era  not  allOmed  to  play  further).  If, 
homever,  you  do  not  hove  more  then  250  nor  less  then 
zero,  you're  able  to  continue  playing. 

1»  REH  M)  SKAT 
30  11*30 

40  ClSsMSIl  340 

5t  IW!'N»  RUCD  UOlLC  YQJ  LIKE  II  KJ’jA 
40  IT  *>«  M«  so 
70  h-H-A: ft IMT:PB ] aT 

BO  IVUI'ttlCo  NIMFI  ME  10U  MTT1NS  9H‘;B 
»0  IF  B<l  |fi  »>  0  THE If  BO 
45  U1SUB  2» 

100  FOR  >1  ID  3 
110  N-0 

120  BCSUO  2M0s  FBI  »H23, jB 

130  WIRTiWlWOirC'ftLL'O 

1«(  [FD*t  M:  C*1  THEN  V‘ft:rfil»T*  51  YOU  MIW  EifN* 

ISO  AMI  C>l  THEN  h’tiPRUT*  39  YBU  Nil  ID 

100  R-fMt 

in  SOSOf  240 

US  lOStlt  MOiSDSiB  M0 

110  NE4T  C 

140  k-SUB  ?lfl:$CSl#  780 
200  TF  A1250  THEN  310 
2l4  IF  H>0  D€k  10 

220  FOR  1=1  TO  8:MINT*Ite  6WE  IS  OVIR/CES  YM'RE  MOKE": KIT 

230  «TD  230 

240  FRlNT'IIIII4lM*IIIU4lllt|IUiir 
?S0  MINT'  YOUA  STAKE  IS  MN  l*R 
240  JttUiPtmMitiimiiiMiiimiii' 

270  RTTIHN 

2W  F3F  ?=1  TO  1000 

240  HE  IT  f 

300  M1WF 

310  FOR  i-l  T|  JO 

OB 


510  #*Wr'T0U'W  lOPftl  >230!* 

350  return* i jhieu  jntfi" 

335  F*fi  l«t  10  HO: KIT 
510  ICIT  i 

530  CSiOB,|!FOftHlT030ttllEITtCOLreiOlFO*l:IT(QOO:HElT:60TO  330 
2000  «K  DICE  T«F» 

2010  CIS; COLOR, I 
2*20  PHRT  TMUOi'WC 
20 JO 

2040  FOR  t *28510  TD  !8022;POK£  I.HOiKlT  ] 

2050  FOR  1-79*10  TO  29046  STFP  32:PBf  UJliREIT  I 

row  FOR  1=20(40  TO  2WB:P0tt  1,1  JUKI?  1 

20*1  FOP  1=281??  TO  29078  STEP  JJtWF  !, lI3r«C*l  I 

TOW  POKE  28810,  i42iP(K£  19444,  IWsPfltt  29078, l35tP0K  2883,141 

2090  IF  0*1  THE*  2130 

2100  IF  0*2  THE*  2JM 

7(10  IF  0=3  THEM  2170 

2120  IF  0=4  IHEH  2191 

2130  tf  M  ThOI  M) 

21 40  IF  0=4  MM  22» 

21  SO  WE  28944, 143:Mm)  2220 

2140  n\£  28876,  l4JjP»E  29912, 143:60TO  2720 

2170  WE  78876, l4J:P(tt  29444, H3;W.I  29<M2,14J:80T«  222* 

2IW  WE  23E76,l«iPB(  348M,143ifOK  S*84,I43:WE  29012,143 
2183  8010  7370 

2190  WE  28976, KJtPOKC  29004, 1 43: POLE  29H4,I45:P(IE  21012,143 
2145  POIE  28944, !43:SCT0  2220 

2?!«  POtt  28876,143: WE  29004,1«:MK  29804,l«3tPOt£  29012,143 

2210  WE  28940,143: WE  29*48,143 

7220  FOR  M  TO  2S00:«JT  ltC0lD9,«:ClSc0ETUill 


ONE-AND-TWENTY 

Our  dice  genes  continue  now  with  ONE-AND-TWENTY 
which,  bp  you  realised  the  moment  you  read  the  titLe 
In  the  introduction,  is  a  dice  version  of  the  cord 
game,  Pontoon, 

The  game  is  elmpLe*  but  demands  e  degree  of  cool 
thinking,,  ae  well  ea  the  ability  to  guess  which 
numbers  ere  going  to  coma  up  next  when  the  die  is 
rolled*  In  ONE-AND-TWENTY,  you  era  pLeying  against 
the  computer. 

You  are  always  given  the  first  go.  You  roll  the  dis 
as  nany  times  as  you  like,  eielng  to  get  e  total 
ae  close  oc  possible  to,  but  not  exceeding,  21*  You 
cen  stop  adding  to  the  total  whenever  you  like. 

If  you  exceed  21  (that  la,  you  'bust1)  then  the 
computer  wins  that  round  automatically.  A  gems 
consists  of  five  rounds,  end  the  winner  of  the  most 
rounds,  naturally  enough,  wine  the  game* 

The  linee  from  50  to  170  control  your  dice-rolling, 
end  the  computer  only  exits  thie  cycle  when  you 
decide  to  etend.  The  whole  of  the  computer's  game- 
playing  Logic  is  held  within  line  180  which 
determines  whether  it  ie  worth  risking  e  bust  to  try 
end  exceed  your  total.  If  it  decides  to  roll,  the 
Lines  froe  190  to  250  control  this. 

Once  the  computer  decides  it  has  had  enough  of  thet( 
It  ueee  linen  260,  200  end  290  to  determine  who  has 
won.  If  both  your  scores  are  the  sene,  or  both  of 
you  ere  over  21,  then  the  round  is  bounced  as  a  dsec 
haat  (Una  320  telle  you  this),  and  neither  CS  nor 
HS  1e  In crew anted* 

Ae  In  Cheein  de  Computer,  where  the  ale  woe  to  get 
the  beet  out  of  nine  scoring  games,  in  One-and- 
Twonty,  the  intention  Is  to  score  wins  in  the 
majority  of  games  out  of  five* 
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lO  REM  ONE-AND- TWENTY 
20  HS»0:CS=0 
30  H-O:C-O:W»0 
40  CLS 

30  PRINT  "PRESS  *R‘  TO  ROLL, 

60  D*»INKEYI>a  D$“ INKEY* 

70  A*= INKEY* 

BO  ]  F  A*<>  "ft”  AND  A*<>  "S" 

90  IF  A*-"S"  THEN  CLS: PRINT 
tlO  GOSUB  430 
120  R=RND(6) 

130  PRINT  "YOU  ROLLED  A"R: SOUND  R*12,R 
140  H=M*R 

130  PRINT  -SO  YOUR  TOTAL  IS^H 
160  GOSUB  430 
170  PRINT: GOTO  30 

IF  OH  AND  C<22  OR  021  OR  H>21 


‘S'  TO  STAND" 


THEN  70 

“YOUR  TOTAL  1S"H:GDTD  180 


180 

190  R=RND<<*> 

200  GOSUB  430 
210  PRINTiFRINT 


AND 


OR  He 21 

C— 21  THEN  260 


"I  ROLLED  A"R 


220  C=C*-R 

230  PRINT  "SO  NY  TOTAL  IG"C 
240  GOSUB  430 
250  GOTO  180 

260  IF  H“C  OR  II >21  AND  021  THEN  320 
270  GOSUB  510 

200  IF  <OH  OR  H/21  >  AND  C<22  THEN  PRINT  ,  "  I "  j  s  CS=CS+ 
290  IF  <C<H  DR  021  >  AND  H<22  THEN  PRINT  , 

* VDU " | i HS*HS* 1 

300  PRINT  "  WIN • ! " 

310  GOTO  330 

320  PRINT  "THAT  ROUND  IS  A  DEAD  HEAT*... NO  ", "SCORE- 
330  QOSUR  430 
340  GOSUB  510 

350  PRINT  "AFTER  THAT  ROUND,  THE  GAME  SCORE  IB- 
360  GOSUB  430 

370  PRINT  I  AB(7M  "TOO:  "HS",  AND  ME  ’CS 

3BO  GOSUB  510 

390  IF  CS+HS=S  THEN  450 

400  PftlN T SPRINT  "STAND  BY  FOR  THE  NEXT  ROUND...* 

410  I30SUB  43Ci  GOSUB  430 

420  CLSsGOTQ  30 

430  FOR  0»1  TO  300: NEXT  Q 
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440  RETURN 

450  PRINT*  PRINT  "THAT’S  THE  END  OF  THE  GAME” 

460  PRINT: PR [NT  “FINAL  SCORES: u 
470  PRINT  ,"Y0Ur’H5 
4 00  PRINT  MEi"CSj PRINT 

490  IF  CSrHS  THEN  PRINT  “AND  I  DEFEATED  YOU,  HUMANOID 

495  IF  CSJ > HS  THEN  GOTO  530 

500  PRINT  “AND  REMARKABLY,  A  HERE  HUMAN” 

505  PRINT  “BEAT  THE  MACHINE ' • ” i SOUND  5,3 
507  GOSUB  430:  GOSUEl  430:GDSIJB  430sG0SUB  430: 

GOSUB  430: END 

510  PRINT -  PRINT  -******1*111*1 ******»+**** **4*4*" 

: PRINT 

520  RETURN 

530  SOUND  20, 3a  SOUND  28, 2i SOUND  25, 4: SOUND  30,2 

: SOUND  78,5 


540  SOUND  25,6xEND 


f  I  ttltfl  til  lit  !«»«*  ft  ft 

«  tlttt  •  ■«  II  I  HIM  I 

1  ft#  ft*  ftftftft  «•  M  ft 

■  i  ft  •  i  ftft  Hill  •« 

I  ft  ft  ft  ftft 


•  ft  ft*# 


ftftftft  ft 


■  ftft 


ft  ft  ft 


ftftftft  ftftftf  ftft  ftft 

•  ft!  ft  ft  ft  ft  ft  I ft  ■« 

ft  ftft 

ft  ftftftft 


ftft »«««  ftftftft 

ftftftft##  ftftftft 

II  ft  ft 

ftftftft  ft 


•  ft  •  ft  ftft 

•  ft  ftftlftft  ■  ft  ft  ft  ft  ftft 

ft  ftft  ft*  ftftftft  ftft  ftft  ft 

■  I  ft  ■  ftft  ft  ftft  ftft  ft  ftftftft*  ft 

ft  ft  Iftlftl  *  ft  •  ft  ft  ft  ■«■•■  •  ft 
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SNAKES  EYES 

SNAKES  EYES  dotisnds  tone  mo  re  cool  thinking  under 
pressure,  You  and  your  computer  take  It  In  turns  ta 
throw  a  pair  of  dice,  You  add  the  total  of  the  pipes, 
and  in  turn  add  this  to  your  score. 

You  can  roLL  the  dice  as  aany  tlwes  bb  you  like,  but 
If  you  rolL  a  seven,  you  automatically  Iobo. 
Therefore,  at  you  can  see,  the  program  demands  you 
make  decision**  baaed  on  whether  you  should  ba 
careful  end  perhaps  Lose  the  round  by  not  rolling  a 
high  enough  score,  or  whethar  you  should  ba  greedy 
end  go  for  the  absolute  aexiiun  score  and  risk  a 
seven  , 

The  Q  loop  Is  covered  20  times,  gradually  slowing 
down  ee  it  is  traversed  (by  the  inner  Loop,  In  line 
43D),  until  finally  —  with  line  420  —  tha  results 
of  the  dice  rolls  ere  printed.  The  variable  Z  Is 
aet  equal  to  tha  tally  of  the  two  rolls  [in  line 
400 ]  before  the  computer  goes  to  line  700  for  tha 
delay  and  to  print  a  line  across  the  screen*  and 
then  returns  to  the  start  of  the  program  to  line 
180,  the  ona  after  the  ana  which  sent  It  to  tha 
*rolL  the  dice1  routine.  Here  the  computer  checks 
that  the  total  ie  not  7  (lino  180)  and  if  it  is  not* 
then  adds  the  result  of  the  latest  roll  to  your 
tally. 

If,  however,  you  signal  through  INKEY*  that  you  eish 
to  quit,  the  action  goes  to  the  routine  from  line 
220,  After  printing  STAND  BY,  the  computer  goes  to 
the  delay  loop,  end  line  print  routine,  end  then 
uses  the  saws  routine  as  the  huwan  did  for  rolling 
the  dice,  end  —  an  returning  from  the  subroutine 
—  checking  that  the  total  was  not  7,  end  If  not, 
adding  the  new  to  tel  to  the  score.  The  cowputer  he a 
a  very  simple  means  of  deciding  If  It  will  roll 
again. ..If  it  has  less  than  the  human,  it  takes  the 
risk. 
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You'll  find  that  It  la  relatively  eaey  to  program 
games  Lika  thle  on  your  conputtr,  Onca  you've  worked 
out  the  'aaohanlcal  routines'  ehlch  do  such  things 
m  roil  the  dice,  and  Increaent  the  poors,  for  the 
human  player,  It  Is  not  very  difficult  to  work  out  e 
routine  to  enable  the  computer  to  use  the  some 
aechenical  routines.  Host  dice  genes  do  not  dnnand 
nueh  ' i nte 1 11  genet '  and  their  atratagy  can  often  be 
reduced  to  a  couple  of  IF/THEN  etetenenta.  Read 
hooka  on  dice  genes  ~~  euch  as  the  excellent  DICE 
CANES  OLD  AND  NEV  by  William  E  Trodd  [The  Oleander 
Prase,  Nea  York,  1981)  —  to  get  ideee  for  genes  to 
turn  Into  programs,  and  for  sinple  ideas  oft  hon  to 
play  tho  gane  os  nail  as  possible.  It  1e  these  Ideee 
which  you  should  find  relatively  eesy  to  turn  into 
sinple  'intelligent  algorithm!*  to  enable  your 
computer  to  play  reasonably  well  against  you. 

And,  If  es  in  thl6  csss  and  In  ONE-AND-TWENTY ,  you 
stipulate  that  the  human  must  go  first,  the  computer 
knone  exactly  whet  target  it  is  aiding  at,  end 
therefore  starts  a  round  with  a  considerable 
advantage,  which  help*  overcome  the  machine's 
inherent  stupidity. 

10  FcEM  SNAKES  EYES 
20  CLS 
30  H»0:CZ“0 
40  HS-0?CS«0 

50  PRINT  “PLEASE  STAND  BY . . . " 

60  GOSUB  700 

70  CLSi PRINTS  PRINT 

80  PRINT  “YOUR  TOTAL  lS"HS:PRINr 

90  GOSUB  710 

100  PRINT  “PRESS  ’R’  TO  ROLL," 

110  PRINT  "’O'  TO  QUIT" 

120  OS'*  I NKEYIi  j  Q*=  I  Nk£ V * 

130  WS= INKEY* 

130  IF  W»<>  "Ft"  AND  W«<  >  •'0"  THEN  130 
160  IF  W*-“0“  THEN  220 
1 70  GOSUB  370 
180  IF  Z=?  THEN  350 
l VO  HS=HS+Z 

200  FRINTsPRlNT  "YQljR  TOTAL  IS*'HS 
210  GOTO  60 
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220  PR  I  NT  SPRINT:  PR  I  NT  '*  STAND  BY" 

230  GOSUB  700 
240  GOSUB  370 
250  IF  2-7  THEN  330 
260  CS=CS+2 

270  PRINT SPRINT  "MY  TOTAL  IS"CS 
280  PRINT  "YOUR  TOTAL  ISMHS 
290  IF  CS<HS  THEN  220 

300  IF  CS=HS  THEN  PRINT  "IT’S  A  DEAD  HEAT'* 
310  IF  C5JHS  THEN  330 
320  GOTO  510 

330  PRINTi PR ] NT  “YOU  WIN!*":H=H+1 
340  GOTO  530 

350  PRINTlPRINT  ”1  HIIN  !  •  "  :  CZ=CZ+1 

360  GOTO  530 

370  REM  ROLL  DICE 

380  CLS 

390  FDR  Q-3  TO  20 
400  X=RNDI6J 
410  Y=RND<61 

420  PRINT : PR  1  NT  "DIE  UNEi "X"  DIE  TWDi "Y 

430  FOR  P»1  TO  3 * O s  NE X T  P 

440  NEXT  U 

450  CLB 

460  GOSUB  710 

470  PRINT  ‘DIE  ONEi  11 X*1  DIE  TWO:  “Y 

480  Z-X  +  Y 
490  GOSUB  700 
500  RETURN 

510  PRINTlPRINT  "THE  SCORE  ISs " 

520  PRINT  , "YOU i "H 
530  PRINT  , "  ME? "CZ 
540  IF  C2+H=9  TIEN  580 
350  GOSUB  710 

560  IF  H>CZ  THEN  PRINT  "YOU  ARE  LEADING"’ 
570  IF  CZ>H  THEN  PRINT  "AND  I'M  IN  THE  LEAD 
580  GOSUB  700 
390  CLS 

600  IF  C2+H*9  THEN  620 

610  GOTO  40 

620  PR INI sPRINT : PR I NT 

630  PRINT  "WELL,  BUDDY,  THAT'S  THE  END- 
640  PRINT  "  OF  THE  GAME..." 

650  PRINTiPRINT.PRINT 
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660  PRINT  "VOUft  FINAL  SCORE  WAS ” H 
670  PRINT  -AND  MINE  WAS'’CZ : PR 1NT 

680  IF  H<CZ  THEN  F'RINT  "I'M  THE  141 NMER !  ■  "  i  BOTO  720 
690  PRINT  "YOU’RE  THE  W INNER •  1 END 
700  FOR  P«1  TO  lOOOsNEXT  Ps RETURN 

710  PRINT  " - !  RETURN 

720  aoSUE  700: GOSUB  700 

730  CLS»  A*-Oi  L—2s  Z=3 

740  POKE  2B672+A,  127-MZ*16> 

750  IF  L«2  AND  <A+l) /32-INT  U  A«-l  > /32)  THEN  L«=4 

760  IF  L-2  AND  PEEKt20673»Af < >32  THEN  L=4 

770  IF  L-4  AND  PE£M28672+A+32)<>32  THEN  L=1 

790  IF  L  =  1  AND  PEEK  12867 1 -*-A>  <  >32  THEN  L~3 

790  IF  L=3  AND  PEEM2B672+A-32)  032  THEN  L=2 

800  IF  L-2  THEN  A-A+I 

810  IF  L-l  THEN  A»A-1 

820  IF  L=3  THEN  A=A-32 

030  IF  L=4  THEN  A»AK32 

840  IF  A>511  THEN  A«511:L=1 

050  IF  L» 2  AND  PEEK (28673+A) < >32  THEN  L»4 

860  IF  L=4  AND  PEEK  <  20672-*-A+32)  <  >32  THEN  L- 1 

870  IF  L=  I  AND  PEEK  (28671 +-A)  <  >32  THEN  L-S 

SBO  IF  L-3  AND  PEEK (29672+A— 32) <  >32  THEN  L=2 

090  ORND  (2>-lt  IF  C=l  THEN  X=X+1ELSE  X  =  X-l 

900  IF  X<5  THEN  COLOR, O 

910  IF  X>10  THEN  COLOR, i 

920  2-RND  <8  C 

930  GOTO  740 
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UNDER  ‘N’  OVER 

UNDER '  1  OVER  is  n  computer  adaptation  of  the  dice 
gave  usually  known  ss  'Under  and  Over  Seven1  *  In 
t  hi  a  gome,  you  bat  on  the  Likelihood  of  the  total  of 
1  pair  of  dice  Lending  bo  that  the  total  is: 

-  Less  than  seven; 

*  exactly  oq,uo  l  to  ««ven;  ar 

-  greater  then  seven 

Again,  this  is  e  game  ehich  * —  at  first  sight  — 
eeeia  to  offer  pretty  good  odds  to  the  player. 
Howovar,  If  you  pLayed  the  game  forever,  with  a  pair 
of  perfect  dice,  you'd  find  your  Losses  would 
outweigh  your  wins  by  rvaarLy  17%. 

Lines  70  to  1 20  ask  you  to  place  your  bet,  giving 
you  the  key  for  entering  ft  (press  A  to  bat  under 
seven  p  0  to  bat  on  coven  and  C  to  but  on  s  to  till 
greater  than  seven).  Lines  130  end  140  read  the 
keyboerd  using  INKEYI*  rejecting  (line  140}  any 
Input  which  1e  not  Ar  6  or  C. 

Having  received  a  valid  choice*  the  odds  btb  printed 
up  by  lines  150  to  ISO  and  then  Lina  200  eokfl  you  to 
enter  the  amount  of  your  bet.  Of  oouraef  you  can't 
bet  more  than  you  have  [not  In  this  goaet  enywey}  eo 
line  220  chockc  your  bet  (A)  against  your  nonty  [HI. 

The  next  section  rolls  the  dice,  assigning  random 
values  bettoen  one  end  six  to  variables  B  and  Cr  and 
adding  thee  to  produce  total  D  in  line  280.  You  are 
told  of  the  total  by  Line  300. 

THE  OUTGONE 

This  is  dsteratnad  by  the  routine  fro*  lirtae  310  to 
350  where  a  toes  is  first  nssueed  (line  310,  with 
variable  W,  for  ■win1,  assigned  to  tha  negative  of 


your  bet)*  This  in  changed  —  if  needed  —  into  the 
correct  anount  for  e  win  if  one  has,  In  feet, 

taken  piece.  You  can  see  you  got  paid  four  timoe 

your  bet  for  correctLy  specifying  the  dice  will  land 
with  s  total  of  seven  (line  320)  end  even  money  for 
either  over  or  under  seven  [lines  330  end  340), 

Lineu  37Q  Bnd  300  tell  you  about  your  win  (or  loao) 
end  then  I1ne6  420  checks  that  you  atilt  hove  eowe 
money  In  hand.  If  you  have,  you  are  offered  a  new 

round  or  the  gawe.  If  not,  you  ere  dlewlased  with  a 

cortoi n  eeveri ty. 

10  REM  UNDER  W’  OVER 
30  CL  5 
40  M**70 
50  GOSUB  450 
60  GUSUB  470 

70  PRINT  "OK,  PUNTER,  'T1S  TINE  TO" 

BO  PRINT  -PLACE  YOUR  BET... . " 

90  GOSUB  470 

IOO  PRINT  "ENTER  ’Ar  TO  BET  UNDER  7" 

110  PRINT  "  '  B1*  TO  BET  ON  7,  OR" 

120  PRINT  "  'C'  TO  BET  OVER  7" 

130  a*= inkey* 

140  IF  A*'.>  "A"  AND  A«<>  •,B',  AND  A*<>  "C*  THEN  130 
ISO  PRINT s PRINT  "THE  ODDS  ARE:" 

160  PRINT  "A  -  PAYS  EVEN" 

170  PRINT  "  B  -  PAYS  4  TO  1" 

ISO  PRINT  "  C  *  PAYS  EVEN" 

190  GOEUF  470 

200  INPUT  "HOW  MUCH  WOULD  YOU  LIKE  TO  RET’"; A 
210  60SU6  470 

220  IF  A >M  THEN  PRINT  "YOU  HAVEN’T  GOT  THAT  MUCH*": 

PRINT: GOTO  200 

230  B-RND (6) 

240  PRINT  TAB<7>  j "DIE  ONE  CAME  UP"B 
250  GOSUB  470 
260  C-RND16) 

270  PRINT  TAB<7>  j "DIE  TWO  CAME  UP"C 
280  DnC+-B 
290  GOSUB  470 

300  PRINT  "SO  THE  TOTAL  IS"D 
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310  W— A 

320  IF  D=7  AMO  A*="B''  THEN  W=4IA 

330  IF  Ds7  AND  THEN  W=A 

340  IF  D  J7  AND  A*-'‘C'’  THEN  W-A 

350  M-M*W 
360  GOSUB  470 

370  IF  W>0  THEN  PRINT  "YOU’VE  JUST  WON  *'-I4i  ISOSUEi  530 

380  IF  WCO  THEN  PRINT  "AND  SD  YOU  LOSE  ftW*-!) 

390  GOSUB  470 

400  GOSUB  450 

410  GOSUB  470 

420  IF  M< 1  THEN  500 

430  CLS 

440  GOTO  50 

450  PRINT: PRINT  "YOU  NOW  HAVE  *"M 
460  RETURN 

470  FOR  P«1  TO  IOOOiNEXT  P 
480  PRINT : PRINT 
490  RETURN 

500  PRINT  '’YOU'RE  FLAT  BROKE,  ’  BUDDY"1’:  SOUND  3,9 
510  PRINT  "SO  I  GOTTA  CLOSE  THE  CAS I NO " : SOUND  2.7 
520  PRINT  ’THERE’S  NO  ROOM  FOR  DEADBEATS  IN  HY 

JOINT": SOUND  1,3 

525  END 

530  SOUND  21, 4: SOUND  16. 2i SOUND  16, It  SOUND  10.4s 

SOUND  la. 4 

540  SOUND  0,1: SOUND  20. 4: BOUND  21,4 
>550  FOR  1*0  JU  3UPRINT31  .CHR4C1431  s 

PRINT0J-*-44B,CMR*<  143>  ;  :  NEXT 

560  RETURN 
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Artificial  Intelligence 

Artificial  Intelligence  la  a  goal  which  he*  not  yet 
been  achieved.  Certainly,  programs  which  enBb  le 
computers  to  exhibit  behavior  which  oould  conceiv¬ 
ably  ba  clBEsed  aa  Intelligent  have  been  written, 
hut  the  'Intelligence'  has  been  United  and 
effective  only  within  a  severely  restricted  domain. 
That  le,  e  computer  can  appear  to  ba  brainy,  but 
only  If  you  linit  the  environment  within  which  It 
has  to  dewoaetrete  those  brains. 

In  this  section  of  the  book,  wa  have  four  programs 
which  mill  give  your  computer  the  appearance  of  int¬ 
elligence,  and  certainly  provide  impreaelva  demon¬ 
strations  of  'electronic  brainpower'  when  the  prog¬ 
rams  are  shown  to  computer-naive  people. 

Despite  the  clalws  made  by  some  people  (such  es  Carl 
Sagan,  "In  Defense  of  Robots",  Broca1 a  Bra 1 ne 1  that 
human  beinge  era,  essentially.  Just  wall-mBde 
computers,  eft  sense  there  Is  ft  wide  gulf  between  our 
own  perception  of  cur  selfhood,  and  the  totel  non- 
ewarenese  that  computers  can  have  (at  least  at 
present)  of  their  own  existence.  And  It  eesse  to  me 
that  this  se Lf-percapt Ion  lies  at  the  heart  of 
ut  least  one  sepeot  of  intelligence. 

Computers  con  Function  extremely  'intelligently*  in 
restricted  areas.  Look  at  the  five  Inch  square, 
hand-held  chase  machines.  Within  the  limited  domain 
of  che«e  game,  a  solid  appearance  of  Intelligence 
can  be  created. 

A  cowmen  stumbling  block  In  the  work  of  early 
researchers  into  the  field  of  artificial  intelli¬ 
gence  msb  that  writing  o  program  which  emulated  some 
aspect  of  human  reasoning  (such  as  a  very  Iwpreesive 
Checker*  progran  by  Samuels)  did  not  necesorlly  load 
researchers  any  closer  to  either  producing  behavior 
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which  could  bo  classed  *c  I  nto  L  1 1  g  u  n  t  r  nor  toworfls;  a 
theoretical  understanding  of  the  processes  of  huwen 
reasoning  end  deduction,  "Progrii®  In  producing 
Intelligent  behavior  la  not  necessarily  progress 
towarda  producing  thought1”  (Noreart  tfhaland,  When  I_I 
A  Prpflrajl  Inis  11.1  flan  t?,  Creative  Computing,  Feb¬ 
ruary  1301,  pp.  44  -  49 1  . 

There  ii  another  way  of  approaching  the  problem, 
which  I  call  the  "If  It  queck*  Ilka  a  duck.  It's  s 
duck11  approach.  In  the  book  "The  Turing  Criterion  - 
Machine  Intelligent  Programs  for  the  16K  ZX81- 

(Charlton  et  el,  Interface  Publication*  London, 
1982),  which  I  edited,,  I  answer  the  question  "What 
1*  the  Turing  Criterion?"  In  the  following  worries 

pIn  1  950,  the  Englieh  mathematician  and 
logician  A,  H„  Turing  proposed  what  has  become 
known  a*  the  'Turing  Criterion1  for  aachlno 
Intelligence. 

"He  said  that  If  you  were  dealing  with  some¬ 
thing  at  the  end  of  e  wire  thet  could  be  a 
machine,  or  could  be  human,  end  you  could  not 
telL  —  fro®  tho  responses  coming  to  you  over 
the  wire  —  whether  that  with  which  you  were 
dealing  was  human  or  machine,  the  'thing1  at 
the  other  end  wee,  by  definition*  Intelligent. 

Dn  thie  basis,  it  would  be  possible  to  class  many, 
many  computer  programs  a&  Intelligent.  CartalnLy 
thoee  within  thia  section  of  the  book  could  almost 
pate  the  teat,  especially  if  you  were  prepared  to 
accept  the  poseiblity  thet  some  pretty  stupid  humans 
were  dealing  with  you. 

Time  now  to  explore  the  worLd's  of  Artificial 
Intelligence  with  the  following  programs; 

*  Electronic  Brain  (in  which  tha  computer 
tries  to  crack  b  * nnctnrmind- l 1 ke '  code 
you've  worked  out 

•  Amanuensis  tin  which  the  computer  acc¬ 
epts  the  task  of  writing  poetry] 
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ELECTRONIC  BRAIN 

ELECTRONIC  8R  AIN  la  an  attempt  to  ■Pita  o  program  to 
crock  e  ‘Mastermind1  type  coda  in  an  apparently 
intelligent  manner.  You  think  of  a  numerical  code, 
ond  the  computer  tries  to  gums  It.  You  tall  the 
computer  how  well  it  ia  doing  toy  awarding  -  after 
oach  guises  it  makes*  -  a  'black1  for  eny  digit 
correctly  guessed  In  the  r  I  d  h  l  prp  a  i  1 1  o  n  within  the 
coOo  f  end  a  •white1  for  eny  diflit  shich  appears 
within  your  coda,  tout  not  in  the  position  the 
computer  indicated. 

The  problem  it  not  totally  straightforward,  as  the 
computer  does  not  jyipy,  for  certain,  which  digit 
produced  which  result.  I  wrote  two  versions  of  this 
program,  one  to  solve  three-digit  codec,  end  o 
modification  of  that  program  to  solve  four-digit 
ones.  It  works  in  o  simple  manner  (although  imple¬ 
menting  the  relatively  simple  Idea  behind  the  pro¬ 
gram  was  not  particularly  easy],  Everytlme  a  digit 
appear*  In  e  codm  which  ia  awarded  a  black,  every 
digit  within  that  code  Is  weighted  eo  that  M 
appears  more  often  in  future  guessas*  The  mere 
blocks  In  that  particular  code,  the  higher  the 
weighting  each  code  gets.  A  much  swallsr  weighting 
fs  swarded  if  the  code  gate  one  or  mare  whites.  Any 
cods  getting  neither  e  black  nor  a  white  loads  to 
all  the  digits  within  that  guoae  being  totally 
removed  from  future  consideration. 

As  I  weld,,  the  thru  a- digit  version  1e  the  basic  upon 
which  the  four-digit  program  wee  written.  Enter  lh* 
three-digit  one  first,  end  then  save  it  In  that 
form,  before  making  the  needed  conversion  to  make  it 
work  as  a  four-digit  program.  Whereae  the  three- 
digit  version  works  reasonably  well,  and  reasonably 
quickly,  t  h  n  four-digit  program  grinds,  almost  to  a 
haLt  towards  the  end9  as  it  trims  to  generate  codes 
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which  (a)  reflect  the  weighting  that  previoue 
enswero  have  produced,  end  lb)  ere  not  codes  which 
heve  been  previously  suggested  In  that  particular 
run. 

Here’s  the  program  solving  a  three-digit  code: 


GUESS  NUMBER  1 
MV  6UESS  IS  1  2  3 

HOW  MANY  GLAO  S?  1 

AND  HOW  MANY  WHITES?  0 


GUESS  NUMBER  2 
MV  GUESS  IS  4  *  6 

HOW  MANY  BLACKS?  1 

AND  MOW  MANY  WHITES?  0 


GUESS  NUMBER  3 
MY  GUESS  IS  7  9  9 

HOW  MANY  BLACKS?  1 


1  DC 


And  thti  1 6  the  Lifting  that  produced  it 


10  REM  ELECTRONIC  BRAIN-3  DIGITS 
20  SOSUH  SO©! REM  INITIALISE 
30  REN  MATE  A  GUESS 

4©  IF  13UESS<  3  THEM  FUR  Z-l  TO  Zt  B I Z) -Z*3 *GUESSt 

NEXT  1 i  SOTO  6© 

5©  GOSUB  2Bv 
60  CLS 

70  OUESS=GUESS+ l 


GO  PR  I NT 3  PRlNt 

VO  PRINT  "GUESS  NUMBER " GUESS 
l 00  PRINT 

110  PRINT  "MV  GUESS  IS" 8 t l t j 8 < 2) ; B < 3) 

120  PRINT: PRINT 
125  6*=INKEY* 

13©  l-’RINT  "HOW  MANY  BLACKS7  *'i 
I  35  At-INKEY*;  IF  A*<  >M0MANDA*  ;  >■“  1  MANDA*<  >"2’' 


137  PRINT  AS!B=VAL<A*> 
140  IF  B— 3  THEN  570 
150  IT  B»?  THEN  1 9© 
160  PRINTt PR  I  Ml 


ANDA*  M3**  THEM 
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165  B*=lNhFY* 

170  PRINT  'AND  HON  MANV  UHI  TL-.S7  "j 

175  A*  INfcEY*i IF  A*<  >"0"ANDA*<  " I "ANDA*< /"2" 

ANDA*C"3"  THEN  1  75 


177  PRINT  At:  W-VAL (A4> 

180  IF  W*B«3  THEN  Q-3aC <  U  =B<  I » ! C <2)*B (2)  iC  C3) -B C3> 

190  IF  R+W=0  THEN  C  <BfU  *»OiC<B<2>  >*OiC(B(3>  I -CUGOI'O  30 
200  IF  B>AIO  THEN  FOR  Z*l  TO  3s  E  <  7  )  *P  <  7.)  iNEXT  ZiAIi)=P 
210  FOR  Z=1  TO  V 
22©  FOR  D**l  TO  3 

230  IF  Fs(0)=C<7.>  THEM  Cl  Z  1=C  ( 2  >  ♦  (0^M>  *  100«M*  1© 

24©  NEXT  D 
25©  NEXT  Z 
260  GOTO  30 

270  REM  PICT  i HREF  NUMBERS 
280  FOR  7-1  10  3 
2V0  01  '  C (RNDtQ) ) 

300  IT  D1»0  THEN  290 
310  D2*C 1RND <01  I 
320  IF  D2=0  THEN  31© 

330  IF  1  NT  <  0  J  7  I  © )  IMT<I>2/10)  THEN  I*  <  Z  »  =01 
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340  IF  INT»Dl/lO)<INT(D2/10>  THEN  B(2)*D2 
3 SO  IF  INTCD1/10J  «INT(I>2/10>  THEN  BCZT-D1 
360  IF  B  <  Z )  >UjO  THEN  B  (  Z  >  <-B  <  Z  >  - 1 OO*  1  NT  <B  (  2  >  /  l  001 

i GOTO  370 

370  IF  FKZ>>10  THEN  Bt Z 1 -B < Z ) -10*INT ( b ( Z ) / IO> : SOTO  580 
380  NEXT  Z 

390  If  OR  OB  D  <2) ~&<3)  THEN  280 

400  IF  A I D  >0  THEN  CD=0:F0ft  Z=l  TO  3:  IF  B<Z)=EtZ> 

THEN  CO*=CO-*1 

410  IF  AlDy>  THEN  NEXT  ZsIF  CO<AID  1  HEN  280 

420  N=100*B<1> MO*bt2>+B<3J 

430  K  <  0(JESS>  *M 

440  IF  SIJESSC3  THEN  300 

450  CO-1 

460  ca-co+i 

470  IF  KtCC)-M  THEN  290 

480  IF  CO = GUESS- 1  THEN  460 

490  RETURN 

500  REN  INITIALISE 

310  GUI  8S*0:G~9» 010-0 

520  DIM  0<3> ,C<9> ,E<3> ,K< 100) 

330  FOR  Z«=J  TO  V 

540  C<Z>=Z 

330  NEXT  Z 

560  RETURN 

370  HR I NT: PRINT 

5130  PRINT  M  GUESSED  VCllJR  CODE  QF*Bl 1 1 sK<2) ; 8(3) 

590  PRINT  TAB (51  ;  "  IN  JUST' GUESS” GUESSES*1 
600  FClR  Z*3  TO  5000*  NEXT  Z:CLS 

This  Is  the  llBtlng  to  boLvo  Four-digit  codes,  which 
is  based  on  che  three-digit  one.  Note  the  eddftlon 
of  1 -  1*  In  line  430  of  thi*  progroe,  as  well  as 
the  other  changes: 

10  REN  ELECTRONIC  8BAIN-4  DIGITS 
20  GOBUB  51 0* REM  INITIALISE 
30  REM  MAKE  A  GUESS 

40  IF  GUESS«=0  THEN  FOR  Z»=l  TQ  4* B < 2 ) =Z: NEXT  ZsOOTO  70 
50  IF  GUESS*  1  THEN  FOR  Z=1  TO  4s&(Z)  -Z*-4:NEXT  Z* GOTO  70 
60  GQ SUB  200 
70  C.LS 

80  GUESS* GUESS M 
90  PRINT: PRINT 
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100  PRINT  "GUESS  NUMBER "GUESS 
110  PRINT 

120  PRINT  “MY  GUESS  IS4'6U  >  5  B(2)  iB<3)  ;B44) 

130  PRINTi PRINT 

140  INPUT  "HOW  MANY  BLACKS” t B 

130  IF  R=4  THEN  300 

160  IF  0*3  THEN  190 

170  PRINT a  PRINT 

ISO  INPUT  "AND  HOW  MANY  WHITES" 4  W 

190  IF  W«-B=4  THEN  Q«4 t C I U =B< 1 > 1 C (2>=B <2> s 

C  <3>  =B  C3> ! C  <  4  )  «B  <  4) 

200  IF  EH-W^o  Then  C CB  (1 > )-0i C<B<2) )*0: 

C  <B (3) >  «0: C  CB (4) ) “O i GOTO  30 
205  IF  EM  2)  =£c (4)  Oft  B(3)=EH4)  THEN  290 

210  IF  EOAID  THEN  TOR  Z«1  TO  4 :  E  1 1 1  =B  (  Z )  s  ME  If  f  ZsAIl>=B 
220  TOR  Z- 1  TO  9 
230  FOR  D»1  TO  4 

240  IF  8<tU=C(Z»  THEN  C<Z>=C (Z>+(R+W) 4100+WK10 
250  NEXT  D 
260  NEXT  Z 
270  LtiJTD  30 

200  REM  PICK  FOUR  NUMBERS 

290  FOR  Z=1  TD  4 

300  D! =C  (HND  <0)1 

310  IF  D1=0  THEN  300 

320  D2=C<RND(0) > 

330  IF  D2*0  THEN  320 

340  IF  INTlDl/10)  >  I NT  <D2/10)  THEN  D(Z)=Dl 

350  IF  INTIDI/IOI  <  INT<D2/iO)  THEM  BtZ)"J}2 

360  IF  l  NT  <01/101  *=  I  NT  <D2/ 10)  THEN  BIZ)=D1 

370  IF  BlZniOO  THEN  B  ( Z  >  =B  <  Z  ) -100*  INT  <B  (  Z  )  t  IOOH 

GOTO  370 

300  IF  B  ( Z )  >10  THEN  EM  Z )  *B<Z>  — 104  INT  (B  <  Z ) Z 1 0  )  t  GOTO  3BO 
390  NEXT  Z 

400  IF  OR  B(t)=B(3)  Oft  B(I)*>EU4) 

CJR  EM2>=B<3>  THEN  290 
403  IF  P<Z>=EM4>  OR  B(3>=EM4)  THEN  290 
410  IF  AID>0  THEN  CO^OsFDR  Z=1  TO  4jIF  B<Z)*E<Z) 

THEN  CO-CO* 1 

420  IF  AID>0  THEN  NEXT  Z:IF  CO^AID-i  THEN  2? O 
430  M®  10004B  <  I  )  «-lOO*B«2)-HO*FrC3)  *B<4) 

440  K (GUESS) «M 

450  IF  GUESS! 3  THEN  SCO 
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460  C[>»1 
470  CI3=C0+1 

4SO  IF  (•'  (C0>  -=M  THEN  290 

490  IF  CO  GUESS-- L  THEN  470 

500  RETURN 

SIO  REM  INITIALISE 

5,20  GUFSS^O  s  0*  9 :  A I D-0 

330  Clin  £*V4)  ,C<9>  ,El4V  ,K<  1001 

540  FOR  Z«l  TO  9 

550  C<Z>*Z 

560  NEXT  1 

370  RETURN 

5BO  PRINT: PRINT 

590  PRINT  "I  GUESSED  YOUR  CODE  OF  "El  <  1 )  ;  B(2>  |  B  (3>  jD(4J 
600  PRINT  TABI31  \  “  IN  JUST  *  GUESS  "GUESSES 11 
610  FOR  Z-*l  TO  5000:  NEXT  Z 
620  CL-S  sEND 


O  It  III  I  A  A  II  A  A  I  III:  11  11 

A  A  A  A  A  4  A  Mill 

*****  III  I  AAAI  A  1*4  ***** 

II  I  II  It  A  11 

*  A  It  »*  A  AAA*  A  11  *4  *  4 

Alt  till  A  1*414114  1  444*  *4* 

*  A  A  I  A  *4  44  4*  »  **  *  * 

* I  *****  I  It  11*4*4  At  I  A** A* A* 

tAKSlia  I  A*  ******  A*  1  14*1*14 

*  A  AA  A  AA  AA  *1  I  *4  4  * 

I A  I  1111  A  11I1M1I  *  *14*  4*4 

I  1  It  AA  I  A  4  A  A  A  A*  *4  A  4 

AA  A  k A  4*  *  4* 

*******  I  A  III*  A  ******** 

•  I  a  i  a  14  I  a  *  4  * 

*t  a*  sa*  •  a  a  n  *  *  *  *«*  *4  4* 
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AMANUENSIS 


Next  ee'll  hove  oat  poetry  writing  progren.  This 
deoonds  no  interaction  froo  you,  except  for  thet  of 
edolrlng  the  wonderful  (I)  output  of  the  program. 
Here'*  a  saaple  of  the  kind  of  verse  It  produces: 


THE  CONVOY  CLAIMED  SLAVISHLY 
IN  THE  COURT. . . 

PRAYING  POD  AH  A3TRAL  INFLUENCE, 
TO  DEMUR  THE  FAON. . . 
EXHAUSTING,  THEN  GNAWING 
...IMPOUNDING,  BREAKING. 


THE  POSTULANT  BESEECHED  NEGLECTFULLY 
IN  THE  ENEMY'S  CAMP. . . 

WANTING  FOR  A  DOGMATIST, 

TO  RECANT  THE  DJ INN. . . 

DISPENSING  WITH,  THEN  ERODING 
...ENCLOSING,  WOUNDING. 


THE  ASPIRANT  CRAVED  SUCCESSFULLY 
IN  THE  RACECOURSE. . . 

PRAYING  FOR  HOBSON'S  CHOICE, 

TO  QUENCH  THE  GHOST... 
EMPTYING,  THEN  BLIGHTING 
...HANDCUFFING,  ROTTING. 


THE  ASPIRANT  ENTREATED  HALTINGLY 
IN  THE  HIPPODROHE. . . 

PRAYING  FOR  A  BLIND  BARGAIN. 

TO  RECANT  THE  NAIAD. . . 
WASTING,  THEN  BREAKING 

...RESTRAINING,  UNDERMINING. 


Ill 


THE  POSTULAKT  EMTREA7ED  ENDLESSLY 
IN  THE  PLAYGROUND. .  . 

WAITING  FOR  HOBSON’S  CHOICE, 

TO  RELINQUISH  THE  SATUR... 
DISPENSING  WITH,  THEN  DAMAGING 
...COERCING,  BREAKING. 


THE  BEGGAR  CLAIMED  HALTINGLY 
IN  THE  THEATRE  OF  WAR... 
ASKING  FOR  FORTUNE'S  WHEEL, 

TO  BACK  THE  NAIAD... 
DISPENSING  WITH,  THEN  BREAKING 
...MUZZLING,  WOUNDING. 


This  Is  the  listing  of  AMANUENSIS.  Once  you’ve 
It  for  e  *  it  f  l  o  ,  you  nay  veil  with  to  change 
words  In  the  DATA  e t e t anon t b ,  to  vary  the  kind 
poetry  it  produces. 

lO  REM  AMANUENSIS 

7.0  CLS:Diri  A*C12>,Z*U0> 

30  REM  i *»♦*+*** M ttit t* K* A* t ** 

40  RESTORE : GOSUB  450: At < l ) -&♦ 

50  GO  SUB  S70:A*<2»«B* 

40  GOSUB  570: At < 3> •£* 

70  GOSUB  570«  A*  <4)1=6* 

80  GOSUB  370: A*  t3>  =&» 

90  (SDSUB  570 i  A*  (&>)  =B* 
lOO  I3C1SUB  370:  A*<7>=B* 

110  GOSUB  570:  At-C8)HB* 

120  130GU&  570:  A*  19)  «Bt 
130  GOSUB  570:  A*  <10)=B* 

140  GOSUB  570:A*(tn-B* 

[45  RESTORE: FOR  r  =  t  TO  lOO: READ  V* : NEXT 
150  GOSUB  570: A* {12) «B* 

140  rem  mttimmtitinmti 

170  PRINT  "THE  ** ;  ft*  i  l  >  5  “  ":A*(3> 

ISO  PRINT  *’  IN  THE  ■;A*<4>in _ " 

190  PRINT  AtlSlj''  FOR  " f At <6> | " 

200  PRINT  *  TO  *{  A*<7>  |  •  THE  A*  (fl " 
210  PRINT  AKTtj",  THEN  "(At(lO) 

220  PRINT  "  . . . “ ; A* ill))*,  " s  A* (12)1".“ 


run 

the 

of 
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230  PR I  NT: PRINT : M*- INKEY* : M**1NKEY4 
240  REM 

250  PRINTsPRINT  -PRESS  "C*  TO  CONTINUE" 

255  IP  INKEY*<>"C"  THEM  2S5 
260  CLSiGOTO  40 

270  REM  *****M************t*M 

200  DAT A" APPLICANT", "SUPPLICANT", "MENDICANT" , 

-BEGGAR  * , " ASP  I RANT " 
290  DATA  "CLAIMANT",  "POSTULANT”,  "CONWY”,  "SENTINEL", 

"CASTELLAN" 

300  DATA  "ENTREATED", “BE6EECMED", "WAITED”, "BESOUGHT", 

“CONJURED" 

310  DATA  "PRESSED*' ,  "URGED",  "CRAVED".  “DEMANDED",  "CLAIMED 
320  DAT A "SUCCESSFULLY", "COURAGEOUSLY ",  "PROGRESS 1VELY" 

. -FOOLISHLY" 

330  DATA  " ENDLESSLY" ,  *  HELPLESSLY ” . "HALTINGLY " , "SLAV I SMLV 
340  DATA  *•  NEGLECTFULLY",  "PR  I  DEFULL  r" 

330  DATA"FIELD", "BATTLEFIELD", "PLAYGROUND", "CIRCUS 

RING", "COURT" 

Z60  DATA  "BEAR  DARDEN" , "ENEMY* S  CAMP" , "HIPPODROME" . 

"RACECOURSE " 

370  DATA  "THEATRE  OF  WAR" 

300  DATA  "UAI TING", "ASKING", “HOPING",  “WATCHING" 

, "SCREAMING" 

390  DATA  "CRY  SMG" , "STARING", "WANTING" , "STAYING", "PRAYING 
400  DATA  "THE  FATES" , "FORTUNE'S  WHEEL  ", "HOBBDN* S  CHOICE" 
410  DATA  "THE  STARS" , "AN  ASTRAL  INFLUENCE" , "A  BLIND 

BARGAIN" 

420  DATA  "A  SPELLBINDER" , " A  MALEVOLENT  SPIRIT" , "A  ZEALOT 
430  DATA  "A  DOGMATIST" 

440  GAIA  ••OUENCH*',  "RECANT”,  "FORSWEAR",  "ABJURE"  , 

•RENOUNCE". “WAVER 

450  DATA  "REL IMQLUSH", "DEMUR", "SWERVE  ",  "BACK" 

460  DATA  "GHDET", "SPECTRE”, "HOBGOBLIN",  "DJ INN". 

“LEPRECHAUN" 

■  DATA  "PIXY”*  ’  AUN","SATUR",  "DRYAD  .  '  I.OiAB* 

480  DATA  "WASTING",  'SPENDING"  ,  'USING*' ,  "COMSUMl MG", 

"DRYING  UP" 

490  DATA  "RUNNING  OUT" . "EMPTY  1 N6M . "EXHAUSTING" . 

"SQUANDERING" 
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500  DATA  “DISPENSINB  WITH" 

510  DATA  "CORRODING",  "ERODING’*,  "BLIGHT  1NG",  "ROTTING". 

"GNAUI I  MG" 

520  DATA  "UNDERMINING",  ••  SHAKING  ",  ”  BREAK  I ND"  ,  M  DAMAGING" 

, "WOUNDED" 

530  DATA  "RESTRAINING",  "COERCING",  "CHECKING",  "CHECKING* 
540  DATA  “DETAINING",  "ENCLOSING",  "  IMFDUND I NO " 

, " H ANDCUF F 1 NG “ 

550  DATA  "NUZZLING", "GAGGING", "SUPPRESS I NG" 

5*0  REN  •  »«************»*****« 

570  fOR  N=1  TO  10 
5BO  READ  Z<*  <N>  s  NEXT  N 
57 Q  N=RNO<IO) 

600  B»-71(N) 

610  RETURN 


1  1  4 
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Just  for  Fun 

There  is  a  range  of  games  in  this  section  of  your 
book,  oil  designed  just  for  fun,  Fron  INNER  SPRING 
to  ROBOT  MINEFIELD,  o  splendid  time  is  guaranteed 
far  oil. 

We  *  1 1  start  the  'just  for  runr  with  a  pragma  which 
allows  you  to  uce  your  ccnputnr  as  s  two-octave 
piano.  It  Mill  be  very  dear  how  to  play  it  when 
you  gat  it  up  on  the  screen.  Note  that  the  X's  in 
tinea  SO,  70  and  BO  should  be  replaced  with  tnveree 
spaces  [with  the  exception  of  the  third  X  In  line 
90,  which  stays  ac  an  X). 

lO  REM  PI  AMD 

20  CLS*DU=l:DIIT  A  <  26)  .  B  (26 1  ,C  <26> 

10  G4-CHR*  (  12SI  s  Hf-=CHR*  1143):  I#"H4  rHiFi  J*=CHR*  (224  > 

+GHK* (2 2d) 

40  A*=y*+'•  "+Q§-r*'  "-res*-"  "♦©*  +  “  "+GF 

SO  rtt-”XX  XX  XX  XX  XX  XX  XX  XX" 

60  (:*='•  2  3  5  6  7" 

70  t>«=MQX  WX  EX  RX  TX  /X  UX  IX" 

80  E*-"  5  D  6  M  J 

90  F*=" ZX  XX  CX  VX  BX  NX  MX  .X" 

100  PRINTTA6M4)  jCFsPRlNT  TAB  i 6) ; A*4 PRINT  TAB  it J ? At 
HO  PRINT  TAB  <4>  ;  D-ti  PRINT  TAD  <4  (  s  BF:  PRINT  TA8(4>;D* 

120  PRINT* PHtNl  I  AB  ^4  )  ;  t*  J  PR1N1  TAB (61  ;  ASrPHl  NT  f  AB  <  6)  5  A* 
110  PRINT  TAB  1 4  >  j  Bk:  FT11NT  rAt<44  >  ;  B»t  PR  INTTAB  (4  >  A  F* 

140  PRINT i PRINT  "PRESS  THE  SPADE  BAR  TO  EXII"; 

ISO  FOR  1  =  1  TU  26: READ  Z* : A ( I ) -ASC(ZF)  :  NEXT 
160  DATA  2,3,5,6,7,Q.W,E,R. I ,Y,U. l,S,D,G,H,J. Z. 

>..v,  v,  h.n.h, 

170  FOR  1*1  TO  26)  READ  BdliNEXT 

ISO  DATA  38,  41, 47, SC:,  S3,  132,  135, 138,  141, 144,  147,150,  153 
190  DAI  A  262.265,271,274.277,356.359,362,365,368, 

371,374,377 

200  FOR  1  =  1  TO  265  READ  Cl  I): NEXT 

210  DATA  17,  19,22, 2A. 76. 16. 18,20,21,25.23,27, 2B 
220  DATA  5,7,  lO,t2,  14,4,6,8,9, 11, 13,  15,  16 
230  Kt=lM<EY»: IF  K*-""  THEN  230 
240  IF  1  *=“  •  THEM  PRJMT844S, ""i  lEND 
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250  FOR  I=|  TO  26 

260  IF  K  F-LHR  •>  ( A  <  I )  )  THEN  FR-ClI)  ELSE  NEK  1  I 

i GOTO  230 

270  IF  t  <  6  OR  I  >13  AND  I  19  THEN  C=2 

2BO  IF  MOT  (1,6  OR  I>13  AND  I<19)  THEN  L*=I'>r 

:  C— 3 

290  COLOR  C:PRINT«B(]>  ,L*: SOUND  FR„ DUi PFINT3B  ( I  >  , Ml- 
300  N  F  -i  I  Ml  E  Y  i :  I  Jt.  •  I NKE  V  %  i  N  I NKE  V  •  S  N*=  1 NK  E  Y*  : 

" " t  6QTD  230 
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FASTER 


FASTER  1b  an  exciting  reaction  test  game.  You  have 
ten  goes  at  preseing  the  Letter  displayed  by  the 
coaputer  In  the  shortest  possible  tine.  At  the  end 
of  the  round,  your  ten  tines  will  be  dlsployed, 
along  with  the  average  tine  It  took  you  to  react. 

10  REM  FASTER 
20  DIM  A(IO) 

30  CLS: PRINT  "PRESS  *S’  TO  START” 

40  IF  IMHEYK  >  "3“  THEN  40 
50  CL Si  FDR  1-1  TO  10 
t> O  A«RND(26>+64 
70  A*«=CHR*<A) 

80  PRINT3367.A« 

90  K“RND 13200) t  FOR  DE=1  fU  K*M*»INKEV* 

1O0  IF  Mt»A(  AND  DE>K-100  THfcN  250  ELSE  NEXT  t>E 

no  for  c=o  ru  10  step  .052 

130  PR 1NTS269, USING  "h*-#e":C 
140  IF  INKEY*»A*  THEN  B«C:C-10 
ISO  NEXT  C 

160  Ail)  PRINT5U432,  1  (USING  "IDt.llC'jflll): N*-N-»-B 
170  NEXT  I 

180  AVERAGE -N/lOt PR INT3384. "AVERAGE ■ "AVERAGE : PRINT 

190  FOR  F=l  TO  3000: NEXT  F 

200  PRINT  "IF  YOU  WOULD  LIKE  ANOTHER  60." 

210  PRINT  "JUST  PRESS  'V*.  OTHERWISE" 

220  PRINT  “PRESS  *N*" 

230  wn=lNKEY*: IF  M*< >  "Y~  AND  M*<>  “N"  THEN  230 
240  IF  hr  THEN  30  ELSE  END 

230  PRINTi440, "TALE  YOUR  FINGER  OFF  THAT  KEY'1" 

260  IF  JNKEY*oAS  THEN  230 

270  PRINT3448, "  "* 

NEXT  DE:  6010  11< 
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INNER  SPRING 

We  '  l  L  continue  this  section  of  the  book  with  one  of 
the  simplest  games  of  the  Lot,  INNER  SPRING.  Ac  the 
program  explains,  the  computer  produces  two  numbers 
between  one  and  13,  and  asks  you  to  bet  on  the 
probability  of  the  naxt  number  It  thinks  of  lying 
between  the  first  two.  It's  simple  to  ploy,  and  a 
lot  of  fun. 

Hare's  whet  one  round  looks  like  In  action: 


HI  FIRST  NUMBER  IS  Z 
MY  SECOND  IS  4 

10V  HAVE  A  2 

HOW  MUCH  DO  YOU  BET 
MY  HEAT  NUMBER  LIES 
BETWEEN  2  AND  4  ?  1 

NY  NUMBER  WAS  3 

WELL  DONE,  YOU  WIH  J  2 


And  here's  the  listing  of  INNER  SPRING: 

10  REM  INNER  SPRING 
20  GOSUB  330 
30  GOSUB  BO 

40  IF  D<1  THEN  GOTO  420 
4b  IF  D>1000  THEN  330 
30  GOSUB  340 
bO  GOTO  30 

70  REM  *********** ************ 

SO  PRINT : PRINT : PRINT 
90  PRINT  "MY  FIRST  NUMBER  IS"A 
100  PRINT  "  MV  SECOND  IS*'B 
1 10  PRINT 
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120  PRINT  "YOU  HAVE  *"D 
130  PRINT 

140  PRINT  “AND  HOW  MUCH  DO  YOU  PET" 

150  PRINT  "MV  NEXT  NUMBER  LIES" 

160  PRINT  "BETWEEN'*A"AND*'B; 

170  INPUT  E 

180  IF  E>D  THEN  170 

190  D-l)  -E 

200  GOSUB  500 

210  PRINTiPRINT  "MY  NUMBER  WAS"C 
220  GOSUB  300 

230  IF  NOT  (C>fl  AND  C<B  OR  C<A  AND  C>B>  THEN  290 

240  PRINT  "WELL  DONE,  YOU  WIN  *"2*F 

250  D~D+3*E 

260  GOSUB  300 

270  RETURN 

280  rem  iitioiMmiitNimmtmimiiMiKiHHm 

290  PRINT  “SORRY,  YOU  LOSE  VE 
300  GOSUB  300 
310  RETURN 

320  REM  *«(t«ft«**«*****»****«*aMt**«*Kt****4»**»**x 

330  D»20 
340  CLS 
350  A-RNDU3) 

360  B«RND<13) 

370  IF  AB5<A-B)<2  DR  ABS(A-B)>6  T«N  360 
300  C=RND(13> 

370  IF  A-C  OR  B=C  THEN  380 
400  RETURN 

4io  rem 

420  PRINT 

430  PRINT  “THE  GAME  IS  OVER": GOSUB  500 
440  PR INI 

450  PRINT  “YOU  ARE  BROKE!" 

460  PRINT 

470  PRINT  "THANKS  FOR  THE  GAME" 

4BO  END 

490  REM  «t«****r**»*»»*ttaaa*tX*X*4«*****«t.Mtt*«t** 

300  FOR  Z-l  TO  lOOO 
310  NEXT  Z 
520  RETURN 

530  PRINTjPRINT  "CONGRATULATIONS'" 

340  PRINT  "YOU  HAVE  REACHED  *>"D 

550  SOUND  21 , 4: SOUND  16, 2* SOUND  16, liSOUND  10,4 
560  SOUND  O. J : SOUND  20. 4: SOUND  21, 4: END 
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ROBOT  MINEFIELD 

Tine  now  to  face  the  terrors,  the  dangers,  and  the 
horrors  of  the  ROBOT  MINEFIELD.  There  you  ere, 
peacefully  tripping  u  long  one  day  in  the  tun,  when 
suddanLy  you  find  yourself  trapped  In  a  walled  ares, 
■1th  a  number  of  nanlc  robots,  ell  bent  on  your 
destruction. 

The  robots  ere  shown  on  the  display  e*  dollar  signs, 
the  H  1e  youn,  and  the  asterlaka  (*)  are  the  mines 
which  ore  deadly  to  both  you  and  robots.  Robots, 
pretty  clumsily  prparnnmnd,  can  detect  you,  but  they 
cannot  detect  sinet.  Therefore,  your  Salvation  lies 
in  getting  a  wine  or  two  In  between  you  and  the 

robots,  qo  that  when  they  coae  towards  you  they'll 

smash  into  alnes  and  be  wiped  out. 

The  robots  have  one  trick  up  their  sleeves.  They  con 
merge  into  one  another,  so  you  may  think  only  one 

robot  is  approaching  you,  when  at  the  last  minute  It 
splits  Into  two  or  nore,  one  going  each  way  around  a 
nine.  Thl6  Is  not  a  gawe  for  those  she  seek  the 

quiet  life. 

Vou  can  move  north,  south,  east  or  west  (with  north 
at  the  top  of  the  screen] ,  and  you  enter  the  move 
you  went  to  woke  by  entering  the  initial  of  the  dec- 
i  rod  direction  (so  you  enter  "N"  to  qo  north,  HS'r  to 
go  south  and  so  on) . 

10  REM  ROBOT  MINEFIELD 

20  <5DfCJ  230 
30  REM  MOVE  ROBOTS 
40  TALLY^O 
50  FOR  £*l  TO  4 

60  IF  A  <  B  <E) ,  C  <£) ) -42  THEN  T ALL Y**TAI_L Y-*  i  s  GOTO  200 
70  X~B<E) s V-C<E) 

AO  IF  FJ<E)  CD  THEN  &<E)=B<E>+I 

90  IF  b(E>>D  AMD  RNLMI0)>3  THEN  B<E)=D<E>-| 

100  IF  C  <E>  \F  AND  RND<I0>>3  THEN  C  <E)  •€<£>♦! 
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110  IF  C<ei >F  THEN  C<E>=C(E)-1 
120  IF  EMEX2  THEN  EUEJ-2 
130  IF  B<E>>14  THEN  B<E>=14 
140  IF  C<£>^2  THEN  C(E1=2 
ISO  IF  CIE)  >14  THEN  C(E>*=14 
140  ATX. Y 1=46 

170  IF  FHEHLl  ,C  IE>)=42  I  HEN  TALLY-  TALLY-H  «  GOTO  200 
1 0-0  IF  A  I D  I E  >  ,  C  T  E  >  >  -200  THEN  A  t& <E  i  ,  C  <E  >  )  =226: 

eOBUt?  300a  GOTO  910 

190  A  <  6  <  E ) , C I E i >=229 
200  NEXT  E 

210  IF  TALLV<CH  THEN  TALLY=CH 
220  CH= TALLY 

230  TF  TALLY-4  THEN  GQSUB  300sGO'fQ’  970 
240  RETURN 

250  GDSiUE*  330!  REM  INITIALISE 

240  GOBlie  JOOiREM  PRINT  MINEFIELD 

270  609110  30 j  REM  ROBOTS  MOVE 

200  GOSUB  420SREM  HUMAN  MOVE 

290  SOTO  240 

300  REM  PRINT  MINEFIELD 

310  PRINTCHMi ( 20)  i 

320  IF  TA1jLY>0  THEN  PRI NTij>40O, ‘DEAD  ROBOT  TALLY: -TALL 

330  IF  TALLYJO  THEN  PRINT  CHR4<20>? 

350  FOR  B-l  TO  15 

360  FDR  Ol  TO  15 

370  PRINT  CHWMAtB.C) )  ;  “  H; 

300  NEXT  C 

390  PRINT 

400  NEXT  D 

410  RETURN 

420  REN  PLAYER  MOVE 

430  A  CD, F) -46s  B4— 1NKEY4 

440  A*=INkEY* 

450  IF  A*=M"  THEN  440 
455  SOUND  31,1 

460  IF  A*=".r‘  AND  D>2  THEN  D-D-l 

465  IF  A*- "A"  AND  D> 2  AND  F>2  THEN  D"D-1»F=F-I 

470  IF  A*«"  "  AND  D<  14  THIN  D=D-M 

475  IF  A*K"S“  AND  D>2  AND  Fsl4  THEN  D^-D- 1 :  F=F+ 1 

4B0  IF  A*“'V  AND  F<  14  THEN  F-F+l 

405  IF  A*«"X“  AND  D<14  AND  F<14  THEN  D=D+liF=F+l 
490  IF  A*=~M"  AND  F>2  THEN  F=P-1 

475  IF  A*«*'Z"  AND  D<14  AND  F>2  THEN  D=D+liF=F-l 
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500  IF  A  (D,  F ) =42  THEN  GOSUB  300 » GO TO  990 

510  A<D,F>=200 

520  RETURN 

530  REM  INITIATE 

530  DIM  <ms,  1S>  iB(4)  ,C<4) 

560  CLS 

570  PR  I NTs  PRINT  "PLEASE  STAND  DY  FOR  A  MOMENT... 
380  CH=0 

610  REM  PLACE  WALLG 
620  FOR  B“ 1  TO  13 
630  FOR  C-l  TO  13 
640  A<B,C>«46 

650  IF  B» I  OR  B=J5  OR  C*1  OR  C=15  THEN  A<B.O*88 

660  NEXT  C,B 

6?0  REM  PLACE  MINES 

680  FOR  R=1  TO  20 

690  C=RND<13> 

700  D-RNDUS) 

710  IF  A(C, D)«88  THEN  690 
720  A  (C.  D)  =42 
730  NEXT 

740  DATA  4.4. 13,8,8,3, 12,7 

730  REM  PLACE  ROBOTS 

760  FOR  E»1  TO  4 

770  D-RNPt 131+1 

700  F^RND  < 13) +1 

790  IF  A  <D, FK  >46  THEN  770 

OOO  fc<CE>=DtC<E>-F 

810  AfB<E> ,C<E) >=228 

820  NEXT  E 

030  REM  PLACE  HUMAN 

040  D=RNDU3>+1 

650  F»RMD< 131+1 

060  IF  A  <D, F) <  >46  THEN  830 

870  A (D, F  >  =200 

GQO  CLS! RE TORN 

690  REM  HUMAN  AT  D»  F 

900  REM  ROBOTS  AT  B<E>,C(E> 

910  REM  END  OF  GAME 

920  PRINT<5480,  *'  THE  ROBOTS  HAVE  GOT  YOU'!" 

925  SOUND  16, 3! SOUND  16, 2s SOUND  13, 4: SOUND  18,2 
927  SOUND  16, 5: SOUND  13,6 
930  CH=0:TALLY=0 
940  A*-”" 
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950  IF  INK£Y*<  >**'*  THEN  950 
960  GOSUB  570* GOTO  260 

970  PRINT3480,  ■  YOU'VE  DEFEATED  THE  ROBOTS*  •** 

980  GOTO  930 

990  PR INTii>480t  *  YOU'VE  RUN  INTO  A  MINE"iSOUND  1,8 
lOOO  GOTO  930 
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Fun  with  your  Printer 
CELESTIA 

The  first  of  the  two  programs  In  this  section  Is 
CELESTJA,  which  you  can  run  either  on  your  TV 

screen,  or  on  the  screen  and  to  the  printer  et  the 
same  tine.  It  produces  an  Infinite  series  of 

Bvolving  patterns. 

The  potterne  develop  according  to  the  rules  of  the 
famous  cowputer  guns  of  LIFE,  developed  by  John 

Conway  while  et  Gonville  end  Calua  College  et 
Ceabridge  in  the  UK.  Martin  Gardiner  spread  the 
Seme  throughout  the  world  when  he  wrote  about  In 

Sclent! fie  Aeeri oan  In  October,  1970. 

In  LIFE,  cells  ire  born,  grow  end  die  according  to 
rules  which  Conway  Invented.  Each  cell  on  e  grid 
(the  colony  of  cells  Is  imagined  to  be  evolving  on  e 
grid)  Is  surrounded  by  eight  ethers,  end  the  state 
of  those  eight  other  cells  dictates  what  happens  to 
the  cell  In  question  In  the  following  generation. 

The  ruLea  which  govern  the  evolution  of  the  celle 
are  as  follows? 

*  If  o  coll  has  two  or  three  surrounding  it,  it 
survives  to  the  next  generation 

*  If  there  are  three,  end  Just  three,  full 
cells  next  to  an  empty  one,  a  cell  will  be  'born*  in 
that  empty  space  in  the  next  generation 

•Any  cell  with  four  of  its  neighbouring  celle 
occupied  dies  In  the  next  generation 

Don't  worry,  you  don’t  have  to  know  the  ruLee,  as 
the  cowputer  Interprets  then  quite  happily  by 
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itself.  The  rules  produce  patterns  ehieh  are  far 
■ore  ottroctive  tend  for  Less  predictable)  than  you 
could  poeslblly  imagine  by  reading  the  roles.  Thera 
is  Just  one  extra  twl6t  in  this  program,  ahich  mafete 
it  even  more  effective,  CELESTIA  actually  prints 
out  four  colonial  each  time  a  colony  evolvao.  Tha 
original  colony  is  in  one  quadrant  of  tha  screen, 
and  the  other  three  quartern  of  the  screen  contains 
reflections  of  the  original  one. 

CELESTIA  is  incredibly  affective,  ae  you  can  sec: 


im  4 
$  $4 


9  **»* 

s*  a 


1 

X  X 

MMM 

*  * 

X 

s 

* 

s 

*»***s 

* 

* 

9 

* 

* 

XX 

1  I*  X 

IS 

* 

* 

«  ft* 

**  * 

*  ** 

X*  9 

* 

* 

X* 

*  49  X 

ax 

t 

s 

* 

S 

s 

MUM 

X 

9 

1 

* 

*  * 

****** 

*  X 

X 

*  M 
444$  $ 
4  t 

a  s 


94  9 

*  tm 

t  4 

*  9 


1  27 


*«  im 


t  4444  I  It  91  *444  4 
44  44  444444  4444  444444  44  44 
44  4444444448  I  4444  4  4444444444  44 


4  44  4  4  4  8  4  X  44  4 

4  4  4441  1  1  4  4 

444  444444444444  44  S!X444ii*ll4  484 


444  444  4  844  418  I  184  1  48 


444  444  8  844  414  4  484  448 

444  448444444444  44  44444448111ft  444 
4  4  444848  1  ft 

8  44  4  4  44  4  I  84  4 

44  8444444444  4  8184  4  4844481818  88 
44  44  848484  8488  8444*1  84  44 

4  4484  4  44  4  1181  S 

84  4444  8  84  44  4  4444  If 


1  1441 

4  11  4 

1  1  8  ft  ft 

8  ft  4  4 


4 


4 

4 

4 

4 

4 

4 

4 

4 


4 


120 


designs  on 


This  Is  tits  listing  to  give  CELESTIA 
your  ni eroconputer : 

lO  REM  CELESTIA 
20  GOSUB  45' J  i  REM  INITIALISE 
30  GOSUfi  60  :REM  PRINT  OUT 
40  GOSUB  290s  REM  EVOLVE 
50  GOTO  30 
60  OLS 

BO  FOR  X=2  TO  9 
90  FOR  Y=2  TO  19 
tOO  PRINT  CHR* CACX, Y> > ; 
l 10  NEXT  Y 

120  FOR  Y-39  TO  2  STEP  -1 
130  PRINT  CHR*<A(X, Y) > ; 

140  NEXT  Y 
150  PRINT 
160  NEXT  X 

170  FOR  X-9  TO  2  STEP  -I 
ISO  FOR  V-2  TO  19 
190  PRINT  CNR* l A  <  X,  Y)  > ; 

200  NEXT  Y 

210  FOR  Y"19  TO  2  STEP  -1 
220  PRINT  GHR* i  A  l  X  ,  Y  >  > ; 

230  NEXT  V 
240  PR INI 
250  NEXT  X 
260  IF  N=0  THEN  640 
270  RETURN 

280  FOR  X=2  TO  9: FDR  Y-2  TO  19 
290  0=0 

300  IF  A  <  X— 1 ,  Y-l >  =B  THEN  C=C+1 
310  IF  At X-l , V) =6  THEN  C«C+1 
320  IF  A(X~1,Y+1)=B  THEN  C=C+1 
330  IF  A<X,Y-1>=B  THEN  OOl 
340  IF  A<X,Y+1)=B  THEN  C=C+1 
350  IF  A<  X+l ,  Y—I  )  =B  THEN  0=01 
360  IF  fl(I+t,Y)=B  THEN  C=C+1 
370  IF  0<X-*-l  ,Y+1  )=B  THEN  C-CM 
380  IF  A<X,Y)=6  AND  003  AND  C<>2  THEN  8<X,Y»=E 
390  IF  A  (  X  ,  Y>  =E  AND  03  THEN  B(X*Y)«B 
400  NEXT  Y,  X 

410  FUR  X=2  TO  9j  FUR  Y-2  TO  19 
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420  A  (  X  ,  Y  >  =B  <  X , V  > 

430  NEXT  Y,X 
440  RETURN 
450  REM  INITIALISE 
460  CLS 

470  PRINT  "PRESS  THE  SPACE  BAR “ s PR I NT "WHEN  YOU'RE 

READY  TO  BEGIN" 

480  N=l 

490  IF  INK£Y*<>  "  "  THEN  470 

510  PRINT  "DO  YOU  WANT  A  COPY  ON" 

520  PRINT  "YOUR  PRINTER  <Y  OR  N) " 

530  A*«INK.EV*j  IF  A*<>  "N-  AND  A*<>  "Y"  THEN  530 
540  IF  A*='*Y"  THEN  N»0 
330  CLS 

560  B«  ASC  ( '*  It " )  i  E-ASC  I"  " » 

570  DIM  A  C 10, 20 > ,0(10, 201 
580  FOR  X-2  TO  9: FOR  V-2  TO  19 
590  A (X, Y> «E 

6«Xi  IF  FiNO  (0)  >.  45  THEM  A(X,Y1*B 
610  D<X,Y)=A<X,  Y> 

620  NEXT  Y,  X 
630  RETURN 

640  L PRINT  "  - - — - " 

645  REM  6  SPACES,  34  -'S 

630  LPRINTsLPRINT : LPRIMT  "  "* 

660  FOR  X»2  TO  9 

670  FOR  Y=2  TO  19 

ABO  LPRINT  CHR»(A(X,  Y)  )  ; 

690  NEXT  Y 

7iX»  FOR  Y=19  TO  2  STEP  -1 
710  LPRINT  CHR*(A(X.YMj 
720  NEXT  V 

730  LPRINTsLPRINT  '•  '*3 

740  NEXT  X 

730  FOR  X=9  TO  2  STEP  -1 
760  FDR  Y=2  TO  19 
770  LPRINT  CHR*(A<X, Y) > s 
780  NEXT  Y 

790  FOR  Y-19  TO  2  STEP  -1 
BOO  LPRINT  CHR* (A  <  X , Y) > ; 

BIO  NEXT  Y 

820  LPRINTsLPRINT  M  *' » 

330  NEXT  X 
840  LPRINT 
850  RETURN 
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The  listing  vt’ve  just  conn  Is  to  print  the  pattern 
direct  on  your  printer.  If  you  don't  want  to  employ 
the  printer  in  this  way,  you  can  aodlTy  It  an 
follows  to  fit  Just  once  pattern  on  the  screen. 

Line  60  should  be  changed  to  BO  PRINT  CHRI(281;  and 
line  numbers  120  to  140,  plus  170  to  2S0  should  be 
deleted.  Haro's  a  listing  with  the  changes  made: 

10  REM  CELESTI A 

20  GCJSLJB  450 :  REM  INITIALISE 

30  60SU6  60  : REM  PRINT  OUT 

40  GG5UB  290: REM  EVOLVE 

50  GOTO  30 

60  PRINT  CHR4t28M 

GO  FOR  X-2  TO  9 

90  FOR  Y»2  TO  19 

1O0  PRINT  D**(A(X,y))| 

HO  NEXT  Y 

150  PRINT 

100  NEXT  X 

260  IF  N®0  THEN  640 

270  RETURN 

200  FOR  X-2  TO  9: FOR  Y=2  TO  19 
290  C=0 

300  IF  A IX— I ,  Y— 1 )  =&  THEN  C»l>t 
310  IF  A(X-l,Y)-9  THEN  OC+1 
320  IF  AOC-t  ,  Y«-l  >  =9  THEN  C-C*l 
330  IF  A (X, Y— 1 >  — B  THEN  C=C«-1 
340  IF  A(X,Y*il»B  THEM  C=C+l 
330  IF  A (X  1-1  ,  Y— 1  >  =9  THEN  C=CM 
360  IF  A  <  X  +  l , Y) THEN  C-C+l 
370  IF  A(X4-l,V«n>8  THEN  C-Ol 

380  IF  A<X,Y1=H  AND  C<  >3  AND  C< >2  THEN  B(X,Y)-E 
390  IF  A(X,Y>=E  AND  C=3  THEN  BlX.Y)=»B 
400  NEXT  Y,  X 

410  FOR  X-2  TO  9: FOR  Y*2  TO  19 
420  A<X. Y) -BCX,  Y) 

430  NEXT  Y,  X 
440  RETURN 
4 SO  REH  INITIALISE 
460  ELS 

470  PRINT  "PRESS  THE  SPACE  BAP ■ s PRINT "WHEN 

YOU’RE  READY  TO  BEGIN" 
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480  N~1 

490  IF  IMKEY«<>  "  *  THEN  490 
510  PRINT  "DO  VOU  WANT  A  COPY  ON" 

520  PRINT  " YOUR  PRINTER  <Y  OR  N> " 

530  A*= IMKEY9* IF  A*<>  "N"  AND  A«<>  "V*  THEN  330 
540  IF  A*-"Y"  THEN  N«0 
550  CLS 

560  B=ASC  <"*"): E=ASC ( M  ") 

570  DIN  AllO, 20) .8(10,20) 

580  FOR  X=2  TO  9jFGR  V=2  TO  19 
590  A<X.Y>=E 

600  IF  RND (0) >• 43  THEN  A<X,Y>-B 
610  B(X,Y>*ACX, V) 

620  NEXT  Y,X 
630  RETURN 

640  LPRINT  “  - 

645  REN  6  SPACES,  34  -'S 

650  LPRINT  i  LPRINT  t  LF'RINT  “  M; 

660  FOR  X=2  TD  9 

670  FOR  Y-2  TO  19 

680  UPRINT  CHR»<AtX,Y> ) ; 

690  NEXT  Y 

700  FOR  Y-19  TO  2  STEP  -1 
710  LPRINT  CHR*<A<X,Y> > j 
720  NEXT  Y 

730  LPRINT s LPRINT  "  "s 

740  NEXT  X 

750  FOR  X-9  TO  2  STEP  -1 
760  FOR  Y-2  TO  19 
770  LPRINT  CHR*(A(X, Y) ) j 
780  NEXT  Y 

790  FOR  Y=1 9  TO  2  STEP  -1 
0OO  LPRINT  CHR*(A(X, Y) > | 

810  NEXT  Y 

320  LPRINT j LPRINT  •  » ; 

930  NEXT  X 
840  LPRINT 
B50  RETURN 


130 


BILLBOARD 

BILLBOARD,  as  you  can  oeo  from  tbo  following  semple 
run,  takes  a  massage  of  any  length  tup  to  tha 
maximum  tiring  length  permitted  by  your  system)  and 
turns  it  Into  a  printed  massage  down  the  side  of 
your  printer  paper.  The  printed  Letters  can  thon  be 
used  to  decorate  your  mails,  out  up  to  form 
posters,  or  used  however  your  Imagination  dictates. 

You  don't  need  any  further  Instructions  to  get  great 
results  like  these: 
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iO  REM  BILLBOARD 
20  REM 
30  CLS 

40  INPUT "ENTER  YOUR  MESSAGE "  t  A* 

SO  0“LEN<A*> 

6£ 1  FOR  C»1  TQ  B 
70  D=ASC(MID*tAt+CM-64 

00  IF  D — 18  THEM  DOSUB  4iO:GOTO  130sREM  PERIOD!.) 

90  IF  D=— 31  THEM  60SUB  42!>»G0T0  1 30 1 REM  EXCLAMATION! ! ) 
100  IF  D=-32  THEN  GOSUD  43OiGOT0  130iREN  SPACE 
HO  IF  D<  1  DR  D>26  THEN  GQSUB  1 000: REM  SPECIAL 

120  easue  500 

130  LPRINT: NEXT  C 
140  END 

150  LPRINT"AAAAA" :  LPRINT*'  A  A"iLPRINT"  A  A“i 


155  LPRINT*'AAAAA"s  RETURN 
160  LPRINT‘'BBBBB&B"|LPRINT"B. 
165  LPRINT'*  BE'  BB"s  RETURN 
170  LPRINT  "  CCCCC": LPRINT  "C 
173  LPRINT  ”C  C"« LPRINT  ■ 

ISO  LPRINT “DDDDDDD" sLPRINT”D 
185  LPRINT’*D  D”!LPRINT‘' 

190  LPR INT"FEE£EEn" i LPRINTME 
195  LPRINT "E  £•': RETURN 

200  LPRINT,iFFFFFFF*'»LPRINT" 
203  LPRINT"  F  F"iLFRINT" 
210  LPRINT"  GGG&GM|LPR1NT"G 
213  LPR  1  NT “G  6  G"  sLPRINT" 
220  LPR  I  NT  “'KHHHWHH '* :  L  PR  I  NT  '* 


LPRINT"  A  A 
B  B"sLPRINT"B  B  B" 

C**iLPRINT"C  C" 

C  Cu: RETURN 

D" i LPR I  NT "  D  D" 

DDDDD*'i  RETURN 

E  E"sLPRINT"E  E  £*’ 

F  F" i LPRINT"  F  F" 
F"; RETURN 

G" :  LPRIMT"G  G" 

GO  G" 3  RETURN 

H'*J  LPRINT  "  H“s 


LPRINT"  H" 

225  LPRINT*'MHHHHHH"iRETURN 

230  LPR  INI"!  I  :  LPR  I  NT"  1 1 1 1 1 1 1 ''  i 

LPR I NT “I  I":  LPRINT 

235  RETURN 

240  LPRINT  : LPRINT "J  JJ **  i  LPRINT " J  J*"»LPRINT“J  JM 

245  LPRINT"  J JJ J JJ " :  RETURN 

230  LPR I  NT -KKKKKKK" sLPRINT"  K" sLPRINT"  K  K "i 


255  LPRINT-R  Kw  sRETURN 


LPRINT"  Y-  K" 


260  LPRINT  "LLLLLLL " sFOR  7=1  TO  4sLPRINT  "L" 

.•NEXT  2  s  RETURN 
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270  LPR I  NT  "  MMhMWMM  “  i  LPR 1  NT  " 

273  LPRINT"KHMMMMM  "  :  RETURN 
260  LPRINT“NNNNNNN" sLPRINT" 

2B5  LPRINT  "NNNNNNN"  f  RETURN 
290  LPR  I  NT*'  00000**8  LPRI  NVO 
295  LPRINT"0  0M  sLPRINT" 

300  LPR  I  NT  "  PPPPPP  "  s  LPR  I  NT  * 
303  LPRINT  "  p  P"  sLPRINT 
310  LPRINT-  UGQQQ-J LPR1NT"0 
315  LPRINT-GD  CTiLPRINT" 
320  LPR I NT  *  RRRRRR “ t  LPR I NT ” 
325  LPRINT  ”  R  R  R"  i  LPRINT  *7 
330  LPRINT-  S  SS" jLPRIWT-S 
333  LPRINT-fi  S  S"s LPRINT” 
340  LPRINT”  T M i  LPRINT'* 

343  LPRINT"  fi LPRINT” 

350  LPRINT"  UUUUUU” sLPRINT "l 


M" sLPRINT"  MM" i 

LPRINT**  M" 

NN "  sLPRINT  '*  NN" 

: LPRINT"  NN” 

0"tLPRINT-0  □" 

OOOOO” : RETURN 

P  P" i LPRINT"  P  P" 
”  PP": RETURN 

Q"sLPRlNT”0  0  Q" 

0 0000 " : RE  T URN 
R  R": LPRINT”  RR  R" 
l  RR”» RETURN 
S  S":LPR1NT"S  S  6" 
SS  S“ » RETURN 

T* i LPRINT “ TTTTTTT" t 
T": RETURN 

i”  *  LPRINT  "U"  i  LPR l  NT “U"  ; 


LPRJ NT"  UUUUUU 

335  RETURN 

360  LPRINT  ”  VVW" t LPR  1  NT  -  W"»LPRINr  "V” 

i LPR I NT  “  VV- 

36S  LPRINT  “  WVV"»  RETURN 

370  LPRINT-  WWWWWW”sLPRINI"W" 5 LPR1NT"WWWWW" s LPRINT *'W" 
375  LPRINT"  WWWWWW”: RETURN 

380  LPRINT ” X  X" i LPRINT"  XX  XX-jLPRINT”  X” 


: LPRINT"  XX  XX* 

305  LPRINT" X  X"i RETURN 

390  LPRINT"  V V" 8  LPRINT”  V " t LPRINT "YYYY " 


395  LPRINT" 
400  LPRINT- ZZ 
405  LPR I NT” l 
410  LPRINT". . 
420  LPRINT" * ! 


: LPRINT"  V" 

y V " j  RETURN 

Z  ”  t  LPRINT”  Z  Z  Z  '*  *  LPR  1  NT  *'  Z  Z  Z‘* 

Z  Z  ”  s  LPRINT" Z  1  £ " s RETURN 

"sLPRINT”.  .  "jLPRINTsLPRINTrLPRINT.-RETUF 
! ■ * ! "t LPRINT" ! !  •*!»”* LPRI NT t 


LPR I NTs RET UR 

430  LPRINT i  LPRINT s  LPRI NTs  LPRINT 1  RETURN 
500  IF  D=l  THEN  GOSUB  t 50s RETURNi REM  "A" 

510  IF  D~2  THEN  GOSUB  1 60s  RETURN: REM  "B" 

520  IF  D=3  THEN  GOSLJB  1 70 1  RETURN:  REM  V 

530  IF  D=4  THEN  GOSUB  1 80s RETURN*  REM  -D" 

540  IF  D~5  THEN  GOSUB  1 90s  RETURNS  REM  "E” 

530  IF  0=6  THEN  GOSUB  200 » RE  TURN i REM  ”F" 
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560 

IF 

D=7 

THEN  GOSUB 

2 lOe RETURN! REM  " 

G" 

570 

IF 

D=8 

THEN  GOSUB 

220: RE TURN! REM  1 

HM 

580 

IF 

D-9 

THEN  GOSUB 

230 » RETURN! REM  " 

I" 

590 

IF 

0=10 

THEN 

GOSUB 

240: RETURN: REM 

Mjlr 

600 

IF 

D=tl 

THEN 

GOSUB 

250 » RETURN! REM 

hKN 

610 

IF 

DM2 

THEN 

GOSUB 

260s  RETURN: REM 

M 

620 

IF 

DM3 

THEN 

GOSUB 

270; RETURN*  REM 

"H" 

630 

IF 

D=14 

THEN 

GOSUB 

2B0t RETURN i REM 

®NW 

640 

IF 

D»15 

THEN 

GOSUB 

290! RETURN! REM 

II  Q». 

650 

IF 

0=16 

THEN 

GOSUB 

300! RETURN: REM 

I*  p.  II 

660 

IF 

DM7 

THEN 

GOSUB 

310: RETURN: REM 

"0* 

670 

IF 

DMB 

THEN 

GOSUB 

320: RETURN: REM 

-R- 

680 

IF 

0“  19 

THEN 

GOSUB 

330i RETURN: REM 

II  g  II 

690 

IF 

D-20 

THEN 

GOSUB 

340i RETURN: REM 

II  J  II 

700 

IF 

0=21 

THEN 

GOSUB 

350: RETURN: REM 

"U* 

710 

IF 

D—22 

THEN 

GOSUB 

3601  RETURN! REM 

■v 

720 

IF 

D-23 

THEN 

GOSUB 

370: RETURN: REM 

730 

IF 

0-24 

THEN 

GOSUB 

380 l RETURN! REM 

"XM 

740 

IF 

D— 25 

THEN 

GOSUB 

390t RETURN: REM 

m  y  m 

750 

IF 

D=26 

THEN 

GOSUB 

400 s  RE  1 URN: REM 

-zm 

999 

£NI) 

1000 

RETURN 
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Space  Games 

Good  old  apace*  the  final  frontier*  No  ooLLoctlon 
of  computer  panes  would  be  complete  eithout  e  fee 
space  geese. 

MOONLANDER 


The  scenario  of  this  program  1b  prntty  familiar. 
You  are  lending  on  the  moon*  with  United  fuel,  and 
Tor  eon*  reason  your  onboard  computer  i &  Incapable 
of  doing  anything  except  reporting  the  etcte  of  thn 
flight  to  you.  The  Information  you  gat  ia,  of 
necessity,  limited  but  edequaca. 

You  era  told*  et  all  timet,  your  height  above  (he 
moon's  surface,  how  much  fuel  you  have  left,  and  the 
spaed  willi  which  you  are  descending.  You  havo  to 
antar  the  correct  amount  of  thrust  to  ensure  you 
lend  gently  on  the  surface.  The  fuel  you  hove  ie 
Limited,  to  you  must  ration  it  to  ensure  you  have 
enough  Left  in  the  lest  few  seconds  of  flight  to 
cushion  your  impact.  A  1  h  i  g  h-oco  re  1  feature  [Lines 
370  and  300)  ensures  you  end  your  friends  return  to 
this  program  time  and  time  again  in  on  effort  to  gat 
e  better  'galactic  rating11  and  to  cresting  a  Lees 
danp  crater. 

10  REM  MOONLANDER 
20  HS~>- 10000 

30  CLS:  PR  |NT334f  -HEIGHT;  *'  s  PRINT364*  "VELCICi  TV  t  " 

t PRINTS KOO, “FUEL: M 

*10  A — 20-RN0  <60)  i  REM  INITIAL  VELOCITY 
30  1 2O0t*RND  ( 380 )  t  REM  HEIGHT 

60  C=320+RND <90) : REM  FUEL 
70  S*=CHRS <252) +CHR* (234) +CHR* 1254 ) 

80  FDR  P*29]X2  TO  29103iPOKE  P,  132:NEXTi Q-O 
90  b-lNl  <  B>  2  A=  1  N  \  S  I  NT  <C) 

10O  PRINT342,  USING  "*M#Hu5H:PRINTa74,  USING 
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HO  PR  I NTSH  06 , US ! NG  *#«#«H;C 

120  PRINTS>(0»32>-*-20,  "  ";Q«INT ( 16-B/ lOO) 

130  PRINTiMQ*32»+20,  S* 

190  PRTNT34 16, “THRUST"; 

200  T*=INKEV*:IF  VAL1T*>=»0  AND  T*0"0"  THEN  200 
210  T»VALtT*> : SOUND  Q, I i PRINT  T 
220  IF  T>C  THEN  T»<> 

230  C=C - T 

240  B-BtA+(T-5)/2 

250  A»A+<T-5>/2 

260  IF  D- 1  AND  B>100  THEN  300 

270  IF  ABSCBX20  AND  ABS(AXI5  THEN  420 

2SO  IF  B>19  THEN  90 

290  IF  C>1  THEN  310 

300  PRINT-3332,  "  YOU  HAVE  RON  OUT  OF  FUEL11 

310  PR  I NT31384 ,  "  YOUR  SHIP  CRASHED  AT" ABS IA> "KPH" 

320  PR I NT34 1 6, "CREATING  A" I NT  CABS  <Al *45) 

“METER  DEEP  CRATER" 

330  SC=10O-ABB(A) ;FOFT  P=0  TO  I  STEP  -l : SOUND  P, Is  NEXT  P 
340  FOR  P»1  TO  30001  NEXT  P 

360  CLSsPRlNTS>320,  “YOUR  GALACTIC  RATING  IS“SC 
370  IF  SOHS  THEN  HS=SC 

380  PRINT3352, “BEST  RATING  SO  FAR  IS"HS 
390  PRINT33B4, “PLEASE  STAND  BY  FOR  YtHJR 

NEXT  MISSION" 

400  FOR  P=1  TO  1500: NEXT  P 
410  GOTO  30 

420  PRINT.? 304,  “YOU  HAVE  LANDED  SAFEL V "  !  F'Rl NT 
430  PRINT3416, “WELL  DONE,  INTREPID  CAPTAIN"! 

S£«C*234i GOTO  340 
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HYPERWAR 


HYPERWAR  i s  a  major  space  simulotlon,  »Mch  puts  you 
in  charge  of  patrolling  a  cube-shaped  sector  of 
space,  which  is  ten  psrsaca  along  each  aide*  The 
finaay  la  the  race  known  as  the  Dosznti.  There  Is 
on  L  y  ana  Dosznti  chip  In  thta  uecter,  and  ft  ia 
moving  oloaly  through  the  cube  as  you  play* 
Although  you  cannot  destroy  the  ship,  you  can  kill  a 
number  or  individual  Dosznti.  In  fact,  the  ala  of 
the  game  Is  to  get  your  'alien  kill  total1  to  tho 
highest  point  possible  before  your  energy  b&nka  ore 
exhausted.  Although  there  ere  ner>y,  many  aora 
Doezntl  in  thia  doctor  than  there  ere  humane,  the 
aliens  ere  notoriously  bad  shots,  so  your  chance  of 
wiping  out  a  lot  before  your  mission  Is  terminated 
i  ti  rether  high. 

You  con  only  fire  at  the  Doszntl  whan  you  are  within 
threa  unite  of  their  position*  Attempting  to  fire 
when  thay  are  out  of  range  Leeds  only  to  the  craw 
response  'THE  D0S2NTI  SHOP  IS  NOT  WITHIN  RANGE, 
SIR1  . 

You  have  e  limited  amount  of  energy,  and  eech 
successful  hit  by  on  alien  craft  diminishes  your 
energy  supply. 

I  will  not  explain  the  gome  In  any  more  detail, 
because  to  do  so  would  diminish  the  enjoyment  you'll 
get  from  playing  it.  The  ’behaviour  of  space’  does 
not  ohsngo  from  game  to  game,  so  you  should  find  you 
begin  to  Leern  the  tricks  of  space  warfare  sftsr  the 
first  gems,  leading  to  higher  and  higher  spares  nc 
you  continue  to  play  It.  Tho  game  tends  to  expLsin 
the  rules  to  you  ae  you  play,  and  the  screen  diopLey 
has  been  organised  to  make  It  as  clear  as  poosibLe 
what  is  going  on . 


141 


lO  REM  HVPFRNAR 
20  HS=0 
30  60 SUB  1410 
40  GOSIJB  1150 
50  IF  L<0  THEN  670 
60  GOGUE  1660 
70  L-L-.25 
00  T 1“T 1-1 

90  PRINT  "WHAT  IS  YOUR  ORDER,  CAPTAIN?" 
100  PRINT  "  N.  S,  E,  W" 

110  PRINT  "  A(DVANCE),  RtETREAT > “ 

120  PRINT  “  HCYPERSPACE) " 

130  PRINT  -  L<ASER)" 

140  INPUT  2* 

ISO  IF  Z 4* "N“  THEN  X=X-1 
160  IF  Z«*-*S"  THEN  X  =  X-H 
170  IF  Z*»*E"  THEN  Y=Y*1 
ISO  IF  Z*=*W  THEN  Y“Y-1 
190  IF  Z**’ A"  THEN  Z«Z-1 
200  IF  Z*="R"  THEN  Z=Z+1 
1  IF  THEN  BC1SUB  490 

220  IF  THEN  60SIJB  1520 

230  IF  X<I  THEN  X  =  1 
240  IF  Y<  I  THEN  Y-l 
ZSO  IF  £<\  THEN  i=\ 

260  IF  X>10  THEN  X  = l O 
270  IF  Y>10  THEN  Y«10 
200  IF  Z>10  THEN  7=10 
290  6U5UB  890 
300  IF  RNXHIO)  •'.7  THEN  40 

310  PRINT  ',tM***tM«s**«4«*M*t****t»" 
320  PRINT  " 4DEEP  SPACE  SCANNERS  READ: 4 “ 
330  PRINT  '•*  N/S  -MA-Xs  TAB<26>  |  ■'**' 

340  PRINT  "t  E/W  -"B- V; TAB < 26) « " t " 

350  FR1NT  A/R  -"C-I*  TAB<26)  j  "*'• 

360  PRINT  "***)M#*4f  *****##***********“ 

370  A=A+RNDi4>-3 

380  BUB  *RND  <  4 ) -3 

390  OC*RND<4>-3 

400  IF  A<1  THEN  A»1 

410  IF  A  10  THEN  A-IO 

420  IF  6KI  THEN  B=1 

430  IF  R>10  THEN  B-10 
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<14Cf  IF  CXI  THEN  C=l 
450  IF  C>10  THEN  C=10 
460  GOSUB  1650 
470  GOTO  40 
4B0  REM 

490  REM  LASER  OPTION 
500  L=L-.75 
510  GO  SUB  1 620 

520  IF  A8S<A-X)>3  OR  ABS<B-V> >3  OR  ABS<C-2>>3 

THEN  1680 

5*0  PRINT  "LASERS  ARMED  AND  READY,  SIR” 

350  GOSUB  1650 

560  tF  RNB ( i 0 > >5  THEN  590 

570  PRINT  "LASERS  FIRE  WAS  UNSUCESSFUL,  " ,  "CAF TAIN" 
580  GOTO  650 

590  PRINT  “YOU  DAMAGED  THE  002NT1  SHIP,  ",  "CAPTAIN” 
600  FOR  J=1  TO  30 

610  FOR  H-l  TO  30— J/2i PRINT  M  ";:NEXT  H 
620  PRINT  "WELL  DONE 
630  NEXT  J 

640  T-T  *T<NDl  1  OOO  >  +7B4 
650  GOTO  1620 
670  REM  OUT  OF  ENERGY 
600  G05UB  1620 

690  PRINT  "THIS  IS  SHIP'S  MASTER  CONTROL" 

700  GOSUB  1650 

710  IF  L<«0  THEN  PRINT  "ENERGY  RESERVES  DEF'LETED" 

720  IF  T I =0  THEM  PRINT  "YOU  HAVE  STAYED  IN  SPACE 

TOO  LONG" 

730  PRINT: PRINT  "YOU  DEFEATED •*  T  ” OOSZNT I " i SOSUB  1650 
740  PRINT  "LIFE  SUPPORT  SYSTEMS  FADING..." 

750  GOSUB  1650 

760  PRINT  ”  FADING. 

770  GOSUb  1650 

700  PRINT  •’  FADING..." 

790  GOSUB  1650 

800  PR  ]  I'lT  "TALLY  WAS  "  T  :  IP  T  >H5  THEN  HSI«T 

810  PRINT: PRINT  "BEST  SO  FAR "HSs GOSUB  1650 

820  PRINT  * PR I NT  "STAND  BY  FOR  YOUR  NEXT  MISSION" 

030  GOSUB  1630: GOSUb  1630: GOTO  30 
840  REM  »*»»•*»******»**»*•**** 

850  BOSUB  1630 

B60  PRINT  "YOU  hWVE  COLLIDED  WITH  T*'*,  "DOSZNTl  SHIP" 
970  GOSUB  1650 
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1260  IF  T  >0  THEN  P81NT« PRINT  "DOSZNTI 

DESTRUC  T I  ON  TALLY"  T 

1270  PRINT  " >>.^SHIPS  GALACTIC  CO-ORDINATES  ARE"X|Y?Z 

1280  PRINT  ">>>DQSZNTI  MOTHERSHIP  LOCATED  AT"A(B;C 

1290  PRINT:PRIWr  "THE  UOSZNTI  tS  ”  t 

1500  IF  AOX  OR  BOY  THEN  PRINT  "TO  THE"  i 

1310  IF  AC*  THEN  PRINT  "  NORTH" | 

1320  IF  A>X  THEN  PRINT  *'  SOUTH"  t 

1330  IF  B>Y  THEN  PRINT  "  EAST"? 

1340  IF  B*!Y  THEN  F'RIMT  "  WEST" ? 

1350  IF  C-Z  THEN  PRINT  "  OF  TOUR  SHIP.  SIR'* 

1360  IF  C>Z  THEN  PRINT  "  DEHIND  US,  CAPTAIN* 

1370  IF  C<2  THEN  PRINT  "  IN  FRONT  OF  UB,  SIR" 

1330  print  "titttNmmmtmmmiim’ 

1390  GOTO  1650 

1400  REN  4********* 

1410  REN  INITIALISE 
1420  CLS 

1440  l.*3ri*RND(30>  j  T=0:  TI=50 
J  450  A-RND  CIO) 

1460  B-RNBUO) 

1470  C=RND ( 10) 

1400  X-RNDUO) 

1490  Y=RND(KO 
1500  2=RN1>{  10) 

1510  RETURN 

1520  REM  HVPERSPACE  OPTION 
1330  X=fiND  ( It)) 

1540  Y-RNDC10) 

1550  Z=RNDU©> 

1560  FOR  J»1  TO  40 

1570  PRINT  TAD  (J)  j  11  *  "  i  PRINT 

1580  FOR  H=l  TO  .JiNEXT  H 

1590  NEXT  3 

1600  CLS 

1610  RETURN 

1620  FOR  PM  TO  1000: NEXT  P 

1630  CLS 

1640  GOTO  1660 

1650  FDR  P-J  TO  lOOOsNEXT  P 

1660  PRINTsPRINT 

1670  RETURN 


tc,t>  PRINT  "THE  D0S2NTI  SHIP  15  NOT 

WITHIN  RANGE,  SIR" 

1690  GOTO  1630 

1 700  DOSLiD  1 620  i  PR1  NT  "  CONI>  l  T  I  ON  AHBER  '  “  i 

SOUND  24.8?  GOTO  1650 


***********  t  M  1 1 1 1  it  >  < 

***  **  **  ftt 

****  *  *  ****  *  *  »*  *  * 

*  *  *  *  *  *  *  * 

**  *  **  *  •  **  *  *  «*  it* 

U  l  1  t  I  li 

*  •  *  I 

*********  ********  ********* 
*********  ********  l«*(|t*tl 

*  *  *  * 

**  *  *  «  *  ■* 

***  ****  **  *  *  X*  a  *  * 

*  *  *  *  **** 

«***  *  *  ****  *  «  lilt 

**»  **  *«  *** 

***********  *********** 
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Brain  Games 

I  guess  SOX  of  oLL  games  could,  without  stretching 
the  definition  too  much,  be  cal  Led  ’brain  genes'. 
After  all,  they  demand  a  certain  aeount  of  brain¬ 
power  end  application  fron  you  to  play. 

However,  tha  pragmas  In  this  section  under  the 
heeding  of  BRAIN  GAMES  are  here  because  they  demand 
a  little  aoro  intellectual  effort  than  severs l  of 
thB  other  games  In  the  book. 


Here  you'll  tax  your  ability  as  you  solve  magic 
Stars  In  IDAHO  STARS  and  sav*  your  precious  neck  by 
doduclng  a  word  the  computer  has  chosen  In  EXECUT¬ 
IONER. 

Aa  well,  you'll  try  to  unlook  a  twleted  cube  In 
CUBIC,  will  settle  down  to  a  game  or  two  of  MUMBLE 
MARBLE  (generally  known  bb  a  "Solitaire"  and  named. 
In  this  case,  because  the  game  In  'real  life1  uses 
marbles  on  a  board]  ond  mill  have  to  work  under  the 
pressure  of  a  relentless  clock  to  locate  some  atoms 
within  a  CYCLOTRON. 

If  your  brain  atlll  has  any  power  left  after  all 
that,  you  can  attempt  a  taek  which  may  appear  Im¬ 
possible  In  FLIPPER. 
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IDAHO  STARS 

IDAHO  STARS  are  (tare  with  a  special  property  - — 
nuphero  placed  on  the  croaa-over  points  of  the  lines 
forming  thorn  wilt,  phon  added  together*  produce  the 
sees  total*  no  matter  which  Line  of  number*  is 
chosen. 

Here*  for  example,  is  one  such  star! 


SI 

A 

'nCF5 

3. 


Ae  you  can  #ea,  each  line  on  the  star  sums  to  the 
8 ama  total.  In  this  progrtu,  the  computer  generates 
an  10AHG  STAR,  leaving  tao  or  three  of  the  numbers 
as  zeroes  Tor  you  to  aork  out  as  quickly  as  you  cart. 

10  REM  IDAHO  STARS 
20  GO SUE  480: REM  SET  OP  STAR 
50  GOSUB  340:  REM  PRINT  STAR 
40  GOSUB  70: REM  ASK  FOR  GUESS 
50  GOTO  30 

mi  rem  mmtmm 

70  REM  ASK  FOR  6UESS 

BO  IF  SC XI  AND  SCX10  THEN  PRINT 

•YOU  HAVE ‘SC "RIGHT  90  FAR” 
03  IF  NOT  <SOO  AND  SC<«  10>  THEN  PRINT 
90  GQ*GO+l 

IOC  PRINT  "THIS  IS  GO  NUMBER "GO 
l 10  PRINT  "ENTER  ANY  NUMBER  YOU" 

120  INPUT  "THINK  IS  PART  OF  THE  STAR": G 
130  SC=0 
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140  FOR  J-l  TO  10 

150  ir  G=A<  J  1  THEN  B(J>=A(J) 

160  IF  B  <  J  K  >0  THEM  SOSO  1 
170  NEXT  J 

180  FOR  P=t  TCI  10OO:NEX1  P 
190  IF  5CC10  THEM  RETURN 

200  rem  Kimnmmimimit 

210  ISOSUB  340 

220  PRINT  "YES,  YOU’VE  SOLVED  IT*  " 

230  PRINT  "AND  IT  ONLY  TOOK "GO "GOES. .  .  " 

235  IF  GCK10  THEN  GCJSUB  800 

250  PRINT  "PRESS  ’ Y’  IF  YOU'D  LIKE  TO" 

260  PRINT  "TRY  ANOTHER  STAR  OF  IDAHO,  " 

270  PRINT  "PRESS  ”N'  TO  STOP . " 

280  A*- INKEY1* 

290  IF  A*<>  “N"  AMD  A*< >  "V"  THEN  280 
300  IF  A*-"Y"  THEN  RUN 

310  FRINTsPRINT  "OK,  THANKS  FOR  PLAYING" 

320  END 

330  REM  ttmitm 

340  REM  PRINT  STAR 
350  PRINT  CHR4<2S>; 

360  PRINT  TAB (11) |B(t> 

370  PRlNTs PRINT 

390  PRINT  TAB  <21  ;  "  *iB<4);"  "iiB<5> 

390  PRINT 

400  PRINT  TAB (8) ; B <6) ; " 

420  PRINT  r AE< (1 1  >  j  B < S) 

430  PRINT 

440  PRINT  TAB(3> ; Bt9> ; "  "jBClO) 

460  RETURN 

470  REM  **»»*»*•*** 

480  REM  SET  UP  5TAfi 
490  CLS 

500  DIM  A(  101,  BOOT 
510  60=0  tSOO 
320  A*RMD(9> 

530  B=RND<9> 

540  C=RNDt9> 

550  D-RND<9) 

560  E*RN0<9) 

370  IF  A»B  OR  A-C  OR  A=D  OR  A=E  THEN  530 
580  IF  B=C  OR  B^D  OR  B=E  THEN  530 
390  IF  C=!>  Oft  C=E  THEN  530 
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600  IF  D=E  THEN  330 
610  X*RND<3) 

620  Alibi 

630  A(2>=X-B+C+D 

640  A(3)-A«E 

650  A  ( 4  > =A+D 

660  A  t5)-X-B-OE 

670  At6>-A 

690  A<7>«A+C 

690  A(8)»A+B 

700  A(9)-X-2#0'»2«tHE 

710  A<10>»X-2*B-i:+D-K2SE 

720  FDR  J*1  7D  lO 

730 

740  IF  A  1 J ) =0  THEN  RUN 

750  NEXT  J 

760  B ( RND  < 1 0>  >=0 

770  B(RNDIIO) )*0 

700  B<RND<10>>«0 

790  RETURN 

800  FOR  TU=l  TO  9 1  READ  FR , DU : SOUND  FR,  DU»  NEXT  TU:  RETURN 
BIO  DATA  16,3, IS, 2, 20. 3, 20, 1,20,2,18, 1,20, 2*21, 5, 20,3 
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EXECUTIONER 

As  you  can  tell,  thia  game  Is  a  computer  variation 
of  the  old  pane  1  l- and-pape r  game  HANGMAN.  In  this 
game,  the  coaputer  choooaB  a  word  from  Its  store 
(held  in  the  DATA  atatanonts  fro*  500  to  740}  and 
then  chollongoo  you  to  guess  it. 

The  nuaber  of  guesoes  you'll  gat  1e  related  to  the 
length  of  the  word  (see  lines  120  end  170). 

10  REM  EXECUTIONER 
20  CLS: RESTORE 

30  Y®0:1.*—  “  *{REf1  2B  SPACES 

40  PR 1 NT " PRESS  ’E'  WHEN  YOU’RE  REAOY" 

50  PRINT-TO  FACE  THE  EXEOUT ICIf*£R.  .  .  " 

60  IF  INF.EY40 “E1*  THEN  60 
80  FOR  G-I  TO  RNDU25J 
90  READ  A* 

100  NEXT  6 
llO  GO SUB  480 

120  N«LEN(A*1 : DIM  B < N) , D (N) . 0* < 26 > 

130  FOR  G-l  TO  N 

140  eiG>=ASC<M10*(A*,S, l ) ) 

150  D(6>-£MG) 

160  NEXT  G 

170  QmINI <NtN/2+.5> 

180  CLS t PRINT t PR I NT” YOU  HAVE  TO  GUESS  THE  EXECUTION-" 
190  PRINT-ER’B  WORD  IN  JUST’'D*,GUESSE5" 

200  G05UB  48OiG0SUB  480i GOSUB  480: CLS 

210  FOR  J«l  TO  OiY=Y+l 

220  GO SUB  400 

230  IF  H-N  THEN  340 

240  PRINTjPRINTt  PRINT  0+  1  -J  " CHANCES  LEF7 - .  "  a  Q*=1NKEY* 

250  PRINT: PR I NT "ENTER  YOUR  NEXT  GUESS? 

255  C*-=1NKEY*:  IF  THEN  253  ELSE  PRINT  C*  t 

FUR  1«1  TO  lOOiNEXT  1 

260  F=ASC<C*) 

265  Q* (F-64) «CHR*(F) 

270  FOR  G=t  TO  N 

280  IF  0(G) -F  THEN  0<G>=0iJ=J-l 

290  NEXT  GsNEXf  J 
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300  I3QSUB  480 
310  GUSUD  400 

320  PRINT : PHI NT  :  PRINT "SO  SORRY. BUT  YOU  GOTTA  GO  NOW  '  " 

t  SOUND  1 , 8 

330  PRINT-T4E  EXECUTIONER'S  WORD  WAS  "(rA*;  L* 

:  GOSUD  4GCUEND 

340  PRINT  SPRINT  “WHEW  YOU'VE  STAVED  OFF*1 
330  PRINT“EXECUr ION  FOR  ANOTHER  DAY." 

360  PRINT "YOU  GOT  IT  I N"Y-1 "GUESSES" 

370  PRINT  : PR  I NT" THE  EXECUTIONER’S  WORD  WAS* ; PR1NTA* 
373  FORI=i  TO  20: FOR  Kul  TO  200: NEXT: COLOR, 1 : 

FOR  KM  TO  20Os  NEXT 

376  COLOR, Oe NEXT 

380  PR l  NT  "DO  YOU  WANT  ANOTHER  DO?" 

383  G05UE)  495*  IF  A*<  >"N"  AND  AiO'Y"  THEN  3B3 
390  IF  A*= "N" THEN  END  ELSE  RUN 
400  H=Oe  PR1N I  CHR4(2B> 

405  FUK  VM  TO  26:  PR1  NTdV+Z,  0»  ( V  >  i  NEXT  Vi  PRINT :  PRINT 

410  FOR  6=1  TO  N 

420  IF  &  (E  >=D  <E>  THEN  PRINT"-"? 

430  IP  B<E)OD(E>  THEN  PRINT  CHR* (&(£));: H»H-*-l 
440  NEXT  E 

450  PRINTtPRINT:  IF  HON  THEN  PRIN!“VaU  HAVE”H 

“LETTERS  CORRECT" 

460  PRINT 
470  RETURN 

4B0  FOR  0=1  TO  500* NEXT  O 
4 VO  RETURN 

495  A4MNKEYP: A*= INKEY*: RE  TURN 

500  DAT  A  “HER  ID  JAN",  “MERIT'',  “MERMAID"  ,  "HERR  I  RENT  * 

310  UA  T  A"  OVERSEER  "  .  "OXIDANT*,  ■’OXYGEN",  *  PALPABLE'* 

,  “UNORTHODOX " 

320  DATA"PANDEMQNIUH", "PANEGYRIC”, "PARADOXICAL" 

, "PHEASANT", “FLY" 

330  DATA'RUMPIJS**.  "RUMMAGE",  "SACRAMENT",  “SABRE" 

,  " SCHEMATIC", "TAR" 

540  DATA"SEDIMENT" , “SEXAGENARIAN" , "TEMPERATE" 

,  “TELESCOPE'*,  -CAR" 

550  DATA“6YFSY"  ,  "RHAPSODY**,  -’SCALENE-*,  "SATELLITE" 

, “MARSHMALLOW" 

560  DATA‘*HEL  ICOPTER”,  "CASSEROLE"  ,  "  ILLUSTRATE" 

,  “SYMPATHY",  "MOUSE  ** 
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570  DATA" ftEFRIGERA  TE  "  ,  "MAMMOTH"  ,  "'KALEIDOSCOPE*' 

, "DUPLICATE", "CAT- 

580  DATA" INSATIABLE", "SILHOUETTE",  “BONDAGE  " 

, "BONUS", "DECIMAL' 

390  DATA" DEAFEN" ,  "  THEORY",  "THISTLE",.  "SABOTAGE" 

, “COURTESY", "TRY" 

600  DAT  A  "  DEBU  t  AN  TE  " ,  •'DECADENCE*',  "KETCHUP" 

,  "K1NDERGART  EN", “METRE* 

610  DAT  A"SUPEFfCAL  IFRAGIL 1ST I CEXPI AL  i  DOCIOUS "  , 

"COMPUTER" , "HOUSE" 

620  DATA*' OLYMPIC",  ’'OMNIBUS",  "OMNIPOTENT" 

, "MAGNANIMOUS", "ZEALOUS’ 

6oO  DAT A “ZOOLOGY" .  “Z ILL  I UN" , “XEROX" , ‘XYLOPHONE " 

. “QUINCE", "YUMMY" 

640  "FATIGUE", "FALSETTO", "EQUIVALENT", "ENZYME" 

, "DISRUPT", "HEART" 

630  DA  T A " UUEASY '* ,  '*  IMBECILE",  "BIENNIAL*' 

, “ACCOMFL I SHMENT" . - TONGUE “ 
660  OATA*'KUNGFU",  "JAVELIN”,  “DEMANDMANT*' 

, "OQMIAK", -JERKIN*, “QUAD" 
670  OAT A"ZE&RA" , " TOMAHAWK " , "MARZIPAN" 

, "PULVERIZE",  "FACSIMILE" 

6UO  DATA"HYpQr.HONDRIAC",  "RECRUIT " 

,  "CONJURE” ,  "ST  EWARDESS" ,  "DEBUT " 
<•- »0  DATA ‘LIZARD",  "SCMQLAST  1C" ,  "THEOLOGY" 

, "GEOMETRY" ,  'GIBBERISH' 
700  DATA -VEGETABLE",  "W I NTERGRE.EN"  ,  "YELLOW 

, "YEARLING" , " INFINITY* 
710  DATA"PRA1  Rl  E”  ,  "SCHEDULED"  ,  "RrHEUMAT  ISH" 

,  "MOSQUITO”,  "DOS*',  "TAB" 
720  DATA"6(JX",  ”JET“,  "QUIP",  "QUIZ"'  ,  "QUACK" 

, "AXE", "BI8”, "FIB", "WET" 

7JO  DA T A "YACHT * , "VERSUS", "PNECI S“ , “VILIFY" 

,  *  WOMANHOOD  "  ,  "WOO ** 

740  DATA-YOU", "WOUDWINU", "ACACIA" 
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CUBIC 

Thi6  Is  a  teo-di mens! ono  l  version  of  the  colored 
cube  puzzle  which  swept  the  world  fro*  Hungary. 

The  ’cube'  starts  off  looking  like  this: 

112  2 
112  2 
3  3  4  •* 

3  3  M  1 

After  soma  eenlpulation  by  the  eoeputer,  it  will 
look  something  like  thia: 

1  2  1  2 

3  3  3  2 

3  1  4  1 

U  2  U  •> 


Your  job  is  to  get  It  beck  Into  Its  original  state 
in  as  few  moves  as  possible.  The  numbers  on  the  cube 
rotate  In  groups  of  fourt  spinning  in  s  clockwise 
direction.  This  means  1  2 

3  4  when  rotated  will  look 

like  this  3  1 

4  2 

You  enter  e  number  in  order  to  rotate  the  elewente 
of  the  cube.  The  key  to  move  ie  ee  fallows; 


2  3  4 

6  7  8 

10  11  12 
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30  DIM  A  <41  .B< 16> 

40  CLS 
50  P- 1 i F~0 
60  FOR  0=1  TO  4 
70  C-O 

SO  IF  B=l  THEN  C=1 
•90  IF  B=3  I  HEN  C=2 
lOO  IF  B-9  THEN  C-3 
110  IF  13=11  THEN  C=4 

i2o  eie>-c 

130  BCB+1)*>C 
140  & < B+4  >  =C 
130 

160  C=0 

17i>  IF  B=1  THEN  C=2 

180  IF  B-»3  THEN  C-6 

190  IF  B=9  THEN  C=2 

200  B=B+C 
210  NEXT  D 
220  GOSUB  410 
230  PR  I NT s PRINT 

240  IF  F<ll  THEN  PRINT3224. "TWIST ING. ..  " 
250  F»F+J 

2643  FOR  P=1  ra  SOOtNEXT  P 
270  IF  F<  1 1  THEN  X=RNf>  ( 12> 

280  IF  F>10  THEN  GOSUB  590 

290  IF  X<2  OR  X-5  DR  X«9  OR  X>12  THEN  270 
300  A(1)=B<X> 

310  A<2)*»<X+4> 

320  A<3)-B(X*3> 

330  A  (4  >  =B  ( X -1  > 

340  BIX)»A(4> 

350  B<X*4»«A(1) 

360  B<X+3)=A(2) 

370  B(X-1>-A<3) 

380  GOSUB  410 
390  F-F+l 
400  GOTO  270 
410  PRINT  CHR*<28) 

420  PRINT : PRINT 
430  FOR  B-l  TD  16 
440  PRINT  B<B)i 

450  IF  B/4-INT1B/4)  THEN  PRINT 
460  NEXT  B 
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470  PRINT; PRINT 

480  IF  F>I  10  THEN  PRIN180,"  1WIST  NUMBER  ,fF 

490  IF  F  >10  THEN  PRINT <90,  "  VCIUP  CUBIC  NUMB£R"F-10 

500  IF  F< 1 1  THEN  RE 1 URN 

310  P=0 

520  IF  B  ( 1  >  =1  AND  B<21=1  AND  B<3>*2  AND  fc(4>=2 

THEN  P^PM 

530  IF  DT5>-1  AND  B<A>  =  1  AND  B<7>=2  AND  BC0>»2 

THEN  P-P*l 

540  IF  B<9)«3  AND  B<10>=3  AND  B(ll>=4  AND  B<I2J=4 

THEN  P*=P+1 

550  IF  Kil3>*3  AND  OilflleJ  AND  B<15>-4  AND  B(16>=4 

THEN  P=P+ I 

560  IF  P04  I  HEN  RETURN 

570  PRINT >9384 ,  " YOU  SOLVED  IT  IN  JUST-F- 10'TWISTS" 
580  PRINT  " WELL  DONE,  CUB  1ST  1  •'  i  END 
590  Z*=INKEV*:  Z*«INKEY* 

600  PKINT3320, “ENTER  YOUR  CHOICE  it  -  V> " 

610  L*=INKjEY*»  X=VAU  (L41 

620  IF  OR  A  >9  THEN  610 

630  5DUN0  31,1:  IF  X<4  THEN  X<*X-*  1 1 RETURN 

640  II  X<7  THEN  X=»X+2: RETURN 

650  X=X  +3i  RETURN 

660  RETURN 
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MUMBLE  MARBLE 

Our  next  brain  gene  is  a  computer  version  of  the 
gene  you  probably  know  ac  'Solitaire'  in  which  you 
have  to  move  marbles  around  a  board.  At  the  start  of 
the  game  only  the  center  hole  1b  enpty.  You  can  jump 
over  eerblee  Into  empty  holes,  and  you  remove  the 
marble  so  jumped  over.  The  Idee  of  the  gone  la  to 
and  up  with  just  one  Barbie  fn  the  canter  hole. 

Many  etoriaa  have  bean  told  about  the  origin  of  thie 
gene.  The  moat  interesting  of  these  tales  Is  the 
one  that  says  the  Idee  of  the  pan  woe  worked  out  by 
a  prisoner  in  solitary  confinement  in  the  BaetiLLe, 
who  devised  It  as  s  may  to  relieve  the  monotony  of 
hla  imprisonment.  Whether  that  story  is  true  or  not, 
there  is  no  doubt  that  the  gome  can  become  quite 
addictive.  bb  you  try  to  devise  e  foolproof  may  to 
salve  It. 

Here's  whet  the  MUMBLE  MARBLE  display  looks  like  et 
the  etert  of  the  game: 

1  2  3  k  $  6  7 
0  0  0  1 

0  0  0  2 

000  0000  3 
0  0  0  *  0  0  0  * 

0  000000  s 
0  0  0  $ 

0  0  0  7 

A  few  ncvec  leter  It  could  look  like  this: 

1  2  3  *  5  6  7 

O  0  0  1 

0  *  0  2 

0*00000  3 
00*0000  « 
0000000  5 
*  0  0  6 

•  0  0  7 
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10  KEM  MUMBLE  MARBLE 
20  GOSUB  400 
30  GDSUB  230 
40  REM  ACCEPT  HOVE 

50  PRINTSKU6,  "WHICH  MARBLE  DO  YOU  WANT  TO  MOVE" ; 

AO  PR  I  NT  »44£j,  {  INPUT  ft 

70  IF  A-99  THEM  GOtO  240 
BO  IF  A< 1 i  ON  ft >77  THEM  GOTO  60 
90  IF  ft < A?  079  1  HEM  GOTO  60 
100  PRENT344B, AuTO  WHERE"; 

1 10  INPUT  B 

120  IF  tF  11  OR  I>; -77  THEM  GOTO  lOO 
ISO  [F  A  i  B1  C  >E  THEM  GOTO  lOu 
140  A< ift+B) /2>=E»AtA>«Ei AtB>=/9 
150  HOVE-HOVE* 1 
160  COUNT«C 
1 70  FOR  F=I 1  TO  75 

1G0  1 F  A ( F) *7 9  THEN  COUNT *CGUNT-H 
190  NEXT  F 
200  BOSUB  230 

210  PRINT  "THERE  ARE CDUNT S “MARBLES  *'  t 

PRINT  "ON  THE  BOARD" 

220  IF  COUNT  wi  THEN  GOTO  40 

230  IFA ( 44) =79THEMPRINT - VOU  DID  IT,  IN 

JUST"!  MOVE;  "  MOVES!  "  t  END 

240  FRUIT  THE  GAME  IS  OVER  AND  VGU'VE  FAILED  END 

250  REM  PRINT  DOT 

260  PRINT *448 , L % : Pft I NTCHR* < 28 > ; 

270  PRINT  "ENTER  BIDE  CO-ORDINATE  FIRST” 

290  PRINT  TAB  <5>  s  "ENTER  99  TD  COMCFPF'1 
290  PRINT  "  I  2  3  4  5  b  7M 

300  PRINT  TAB (5); 

310  FOR  I>=1  1  IIJ 
320  T=JO*  (INTO}/ 10)1 

330  IF  D-T-8  THEM  D»D+2i PRINT  T/lOi PRINT 

TA£m3)  ;  i  GOTO  330 

340  PRINT  CHR*  £ A<DM  *  ”  "5 
350  NEXT  Df  PR  I  NT  ■  7" 

370  PRINT  "MOVES  SO  FAR s MOVE 

390  RETURN 

400  REM  INITIALISE 

410  CLS 

•120  DIM  A  £97  J 
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430  t£-42:L*<n-  >■* 

REM  31  SPACES 

440  FOR  D=1 1  TO  75 
450  r=10*( INT<D/lO> ► 

460  IF  D-T*-8  THEN  D*D*-3 
470  READ  A»D) 

460  NEXT  D 
490  MOVE -9 
500  RETURN 

510  REI’I  42  IS  ABC  C*") 

520  REM  79  IS  ASC  CO") 

330  DATA  32,32,79,79.79,32.32 
540  DATA  32,32,79,79,79.32,32 
550  DATA  79,79.79,79,79,79,79 
560  DATA  79. 79, 79,4V, 79, 79, 79 
570  DATA  79,79,79.79,79,79,79 
380  DATA  32,32,79,79.79,32,32 
590  DATA  32.  32,  /9,  79.  79 
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CYCLOTRON 

In  CYCLOTRON,  you  fire  atom*  Into  thB  machine  from 
the  top,  by  specifying  a  number,  and  you  have  to  try 
and  locate  particles  of  antimatter  hidden  within  the 
machine  Cron  the  behavior  of  the  atom. 

If  the  ato*  hit*  a  particle  of  antimatter  it  will 
either  be  absorbed,  or  deflected  to  tha  right  or 
left.  An  o t □«  aay  be  affected  by  more  than  one 
particle  of  antlmetter  which  makes  the  resolution  of 
the  problaa  even  nore  difficult, 

Thera  are  aleeye  three  particles  of  antinatter  In 
the  machine,  although  they  could  well  all  be  in  the 
same  number  cyclotron.  You  have  en  extremely 
limited  number  of  goes  In  order  to  locate  the  entl- 
mottor.  At  each  go,  you  con  either  enter  the  number 
where  you  went  to  enter  en  atom,  or  be  reokleee  end 
enter  B  ,  which  gives  you  the  chance  to  guoae  the 
location  of  tha  antiwetter  particles. 

10  KEN  CYCLOTRON 
20  CL5 

30  W-0;HiJ^9iDIM  B<7)  ,0(3)  ,W13) 

SO  REM  PLACE  ANTI MATTER 
90  FOR  A=l  TO  3 
lOO  B<A)«RNB<7) 

110  NEXT  A 

120  FOR  H=A  TO  l  STEP  -1 
130  CLS 

140  PR I NT i PR IMTiPRINT" YOU  HAVE "H" SECONDS H 
130  PRINT-ENTER  CYCLOTRON  NUMBER." 

160  PR  I  NT" OR  9  IF  YOU  TKINK  YOU  KNOW" 

170  PRIMT"WHERE  THE  ANTIMATTER  LIES" 

180  INPUT  C 
190  IF  C»8  THEN  320 
200  CiCISUB  430 
210  0-1 

*.20  IF  £mD>»C  THEN  330 

230  IF  I>;3  THEN  0=0+1 ;  GOTO  220 

24o  go  sue  rx»o 
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250  PR  I  KIT  “  THE  ATOM  EMERGED  FROM-'CiSOUND  31.5 
260  FOR  Z=l  TO  1000; NEXT  Z 
270  NEXT  H 

280  PR 1 NT  5  PR I NT  r  PR I NT 

290  PR l NT" SORRY . T JM€  IS  UP” 

300  PR  I MT  i  PRINT”  THE  ANTIMATTER  MAS  IN"*SOUND  6,7; 


310  FOR  A*1  TO  3 
320  PRINT  fllfils 
330  NEXT  A 
340  END 

350  REM  ANT IMA ITER  ACTS 
360  IF  RNDU0>>9  THEN  4ZO 
370  IF  C=i  THEN  C=2;GDT0  210 
360  IF  C=7  THEN  C«6tH0rD  210 
390  E-RMD<Zl-i 
400  C=C+F 


SOUND  4 ,  8 


410  GOTO  210 

420  REM  AMT  I MATTER  ABSORBS  ATOM 

430  PRINT” THE  ATOM  HAS  BEEN  ABSORBED" : HOUND  31,1* 

SOUND  30, 1 

440  GOTO  260 

430  PRINT  SPRINT;  PRINT  TAB  <  3+2*0  I  C 
460  FOP;  Z“i  TO  5 

470  PRINT  TAB  16)  ;  - -  -  -* 

4BO  NEXT  Z 
490  RETURN 

BOO  PRINT  TAB  <3+2*0  ;C 
310  RETURN 

520  REM  LOCATION  ATTEMPT 
530  PRINT  "WHERE  DO  VOL)  THINK" 

540  PRINT*’THE  ANTIMATTER  LI  ESP" 

350  INPUT  Oil t ,  0  <  2  > ,0(3) 

360  FOR  T-l  TO  3iW(T)=B(T> sNEXT  T 
570  SR-O 

580  FOR  X=1  TCI  3:  FOR  V®  l  10  3 

590  IF  Q(X)=BC¥)  THEN  SR-SR  +  1 : B < Y) -Os  Of  X > -O 

600  NEXT  Y , X 

610  GOTO  650 

620  FOP  P=1  TO  3 

*30  B  <  P  >  CM 1 P ) 

640  NEXT  P 

650  IF  SR >2  THEN  700 
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660  IF  SR>0  THEN  PRINT ’'YOU  LOCATEO,•SRMCGRf:<ECILY'■ 
67  O  IF  SR=0  THEN  PRINT  "YOU  ARE  COMPLETELY  WRONG '  *' 
680  FOR  T»|  TO  3r B < T) «U < T ) ; ME XT  T 
690  GOTO  260 

700  PRINT  * WELL  DONE.  YOU  LOCATED  THE" 

710  PRINT* ANTIMATTER  W I  TH'*H" SECONDS" 

720  PRINT  ,  "TO  SPARE " j  GQStiB  770 
730  IF  6-H<MS  THEN  HS=6-H 

740  PRINT; PR INI "YOUR  BEST  TIME  SO  FAR  IS"HS 
730  FOR  Z=1  TO  1000* NEXT  2 
760  GOTO  90 

770  SOUND  21, 4 1 SOUND  16, 2s SOUND  to, I : SOUND  19.4; 

SOUND  16,4 

700  ; SOUND  O,  1 : SOUND  20,4;S0UMD  2I,4;RETURN 
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FLIPPER 

This  Intriguing  gome  con  provide  you  with  a  consid¬ 
erable  degree  of  eientel  stretching.  Whan  you  run 
the  game,  you'll  boo  e  «i  1  x  of  X'e  and  *'e  on  a  throe 
by  thraa  grid.  You  have  to  end  up  with  an  X  in  the 
Biddle,  BOd  eight  * '  e>  surrounding  it. 

You  enter  the  number  of  the  place  you  wont  to  hit 
aith  your  flipper.  Flipping  a  corner  piece  causae 
those  adjoining  it  to  change  into  thair  opposites 
(that  is  e it  X  becomes  an  *,  end  an  *  becomeu  an  X)  . 
Hitting  the  middle  piece  on  a  aide  with  your  flipper 
causae  the  two  on  aither  aide  of  It  to  change,  and 
hitting  the  middle  piece  chengee  the  middle  pleoee 
on  each  of  the  sides. 

The  piece  you  hit  alaeye  changes  in  each  case. 

10  REM  FLIPPER 
20  DIM  A< 10) ,FC4>  *CLS 
30  M--1 «Q=42i X=88jP=0 
50  FOR  C*1  TO  1 
60  A  <C  >  »G 

70  IF  INT<RND(l00>/10CN-.t»>=O  THEN  A<C>=X 
80  NEKT  C 
90  GOSUL  270 

too  M=m-i 

110  N*0 

120  FOR  Ol  TO  9 

130  I  F  A  <  C>  »X  THEN  N=N+1 

140  NEXT  C 

150  IF  N«i  AND  A  (5)  =X  THEN  35i> 

160  IF  M>0  THEN  PRINT t PR I NT* THAT  WAS  HOVE'M 
170  PRINTt  PRINT-MUMBER  OF  X  IS"N'‘ 

1<W>  PRINT J PRINT “WHICH  ONE  00  YOU  WANT  TO  FLIP?” 

200  IF  INKEYSO""  THEN  200 
210  A*-Ih*CEV* 

220  N=VAL<A4>:IF  N< l  OR  N>9  THEN  210 

225  IF  A(VAL(A6) )^8B  THEN  210 

230  P-Ni SOUND  31, l 

240  GQSUfc  3SO 

230  <50  T  D  90 


i  e  s 


260  END 

270  PRINT  CHRiM2B) 

2 BO  IF  POO  THEN  FRINT'VCU  FLlPf€0"P  ELSE  PRINT 
290  PRINT s  PR JNT 1  2  3“  ,  GHR1HA  ( t  >  )  5  '*  ; CHR*  l  A  <  2)  >  j  "  " 
295  PRINT  CHFc*<A(3>> 

300  PRINT 

310  PR I NT “4  5  6",CHR*(At4> >  ;  "  *' | CHR* <A *5) > ; 

-  •’CMR*<A<4.>  » 

320  PRINT 

330  PRINT"7  B  9  " , CHR* ( A ( 7) > ; "  -;CHR*<A <0> i > 

*  "  JCHR<<<A<9 >  > 

340  RETURN 
350  PRINT; PRINT 

360  PRINT  SPRINT  i  PR  I  NT  "YOU  SOLVED  IT  IN  JUST  ”  N "  MOVES' ' 
370  END 

360  IF  A(N.)-X  THEN  RETURN 

390  IF  N-l  THEN  F < 1) -2s F <21=4; F (3) =5;F (4 > = 10 
400  IF  N=2  THEN  F < l»  =  1 ; F < 2) <5i F (3> =  10*F i 4 ) -1 0 
410  IF  N=3  THEN  F U >»2iF t2>«5;F 13) -6«F<4 > *tu 
420  IF  N» 4  THEN  F U H «l « F <2)«7i F <3) =10t F 1 4 > =10 
430  IF  N=5  THEN  F  1 1  > ■2tF  <2>  =4sF (3>=SsF  <41  "6 

440  IF  N=6  THEN  F  i  l  >  =3;  P  <2>  ^>9;  F  (3>  ^10;  F  4 4  ►  - lO 

450  IF  N=7  THEN  F  <  i  )  ~4a  F  <2) -5i  F  (3  >  =8;  F  4  4)  «  1 0 

4*0  IF  N"B  THEN  F  4  1 )  -?s  F  (2)  «9:  F  i3>  =  1  Oi  f  <4  >  =1 0 

470  IF  N=9  THEN  Fill =8s  F 42) =5: F (3 ) *6s F (41*10 
4130  FUR  0=1  TO  4 
490  F“U 

500  IF  A»F4Gn-X  TK^N  F=1 

510  IF  F=1  THEN  A(F<&))=G 

520  IF  F“Q  AND  A(F4(3))=0  THEN  A(F<43)»-X 

530  NEXT  Q 

540  A<N>-X 

550  RETURN 
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Creating  Games 

You  may  veil  find,  after  you've  been  programming  for 
some  time,  that  although  you've  got  many  of  tha 
ski  lie  you  need  to  writ#  games  of  your  own,  you're  a 
little  short  on  ideas.  If  that's  the  case,  you 
should  find  this  auction  of  the  book  of  interest  to 
you.  I’m  going  to  outline  e  number  of  geme6  which 
seem  to  ae  to  be  ideal  for  conversion  to  computer 
gamee  . 

GAMES  TO  ADAPT 

8HUFFLEB0ARD :  Players  slid*  flat,  circular  pieces 
along  a  board  towarda  a  triangular  'target'  which 
contains  painted  circles  with  numbers  on  them.  A 
piece  ending  up  entirely  within  the  numbered  circle 
gives  the  player  the  score  of  that  number.  There 
ere  many  poesible  variations  of  this,  including 
darts-lika  target  games.  Once  you  get  a  shuffleboard 
program  running,  you  way  we l L  find  that  only  coRmet- 
ic  chengsa  era  needed  to  convert  it  into  b  ten-pin 
boating  geee. 

HORSESHOE:  Sterti ng  with  b  board  like  this,  with  one 
player's  pieces  at  tha  positions  marked  A,  end  one 
at  those  narked  B,  the  players  take  it  in  turns  to 
nova  along  a  Lins  to  s  vacant  spot:  A  h 


B  o 

The  game  ende  when  t  player  discovers  he  or  she  Cor 
It]  cannot  move.  Despite  its  simplicity,  this  is  an 
Interesting  game,  ee  you'll  discover  when  you  pley 
It. 

MU-TORERE:  This  gaat,  which  originated  aeiong  the 
Maoris  In  Hew  Zealand,  ie  played  on  a  board  shaped 
like  en  eight-pointed  star,  with  eech  point  of  tha 
star  Joined  to  a  circle  In  the  middle.  This  circle 
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i  s  co  l  lad  the  out  oh  i  ■  Tho  plByere  etert  with  four 
pieces  each,  which  urn  placed  on  the  outside  points, 
with  oil  of  one  player's  pieces  occupying  points 
next  to  each  other*  The  aim  of  the  flout,  aa  in  the 
lost  two  we've  dlscue&ad.  It  to  wok*  it  impossible 
for  e  pLeyer  to  move.  You  con  move  from  one  point 
to  on  adjacent  empty  point,  or  froo  the  putahl  to 
any  vacant  point.  The  third  possible  move  io  from  e 
point  to  the  putahl*  but  this  move  can  only  be  mode 
if  at  least  one  of  the  points  i  mined  i  ate  L  y  adjacent 
to  the  one  from  which  you  intend  to  move  io  occupied 
by  on  opponents  place. 

BINGO;  This  gome  Io  usually  played  with  cords  marked 
with  numbers,  which  ore  crossed  off  as  numbers  ere 
drawn  at  radnom  from  a  pool,  the  winner  being  the 
player  who  first  crosses  off  five  In  e  row  on  their 
card,  in  any  direction.  It  con  be  greatly  simplified 
for  computer  use,  with  the  computer  generating  two 
Sards’  st  random,  using  numbers  from  taro  to  99„ 
and  printing  them  on  e  five  by  five  grid*  The 
computer  con  then  choose  numbers  at  random  from  zero 
to  99,  end  do  the  crossings  off,  and  lock  for  po&e~ 
Ible  wins.  The  program  can  be  mode  more  interesting 
to  Look  at  by,  Instead  of  Juat  generating  e  random 
number,  inlcudlng  two  'dials'  with  spinning  arrows. 


Th  8 

f  t  T6  t 

dial, 

the  'tana1  is  marked  from 

zero 

t  c 

nine, 

and 

tht  a 

is  spun 

flret.  The 

second 

dial 

is 

narked  the 

seme  as  tha 

first  one. 

except 

that 

1 1 

rap  resen  ta 

the  f 

ono  n  '  . 

DICE 

GAMES;  Aa 

I  Bald 

in  the  notes 

rafia  rdlng 

the 

d  1  ce 

gemoa 

1  n 

tha  dice 

emotion  of 

this  book. 

you 

ahouLd  find  dice  gomes  relatively  easy  to  program  on 
your  computer,  especially  if  the  computer  is  not 
expected  to  exhibit  too  much  Intelligence  whan  pLoy- 
1  ng  *  There  arm  a  number  or  dice  games  which  you  may 
wleh  to  try  and  adept  Tor  computer  ploy,  including: 

DROP  DEAD:  You  need  five  dice  for  this.  Tha  dice  ore 
thrown  by  the  first  player,  and  ony  which  show  two 
or  five  era  removed.  The  total  of  the  rest  la 
written  down,  ond  tha  dice  which  fell  with  a  two  or 
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b  five  ore  thrown  again.  After  this  throw,  the  dice 
Lending  two  and  five  are  resovsd,  end  the  total  of 
the  regaining  dice  Is  added  to  the  total  fron  the 
flrot  throw*  This  process  continues  until  there  era 
no  dice  Left,  at  which  point  that  particular 
player's  nove  ends.  It  Is  then  pleyBr  Iwd'w  go,  end 
the  eane  proceduro  fa  followed.  The  winner  is  the 
plsyer  with  the  biggest  total  after  both  have  had 
their  throws.  You  can  make  the  gene  the  beat  of, 
say,  throe  rounds,  or  Halt  the  total  number  of 
throws  any  player  can  have  par  go,  regardless  of  how 
■sny  dice  he  or  ahe  has  Left. 

MAHT1HETTI:  You  need  threw  dice  for  this,  and  a 

score  ahBet  marked  with  e  row  of  boxes  worked  frow 
one  to  12,  and  two  tokens,  one  each  for  you  and  the 
computer.  You  ere  slating  to  traverse  the  numbers  In 
order,  beforo  your  opponent  manege*  to  do  go.  Each 
player  takes  It  In  turn  to  throw  the  dies.  If  the 
throw  contains  a  one,  the  pLeyer'e  token  can  bo 
pieced  In  the  one  square.  If  the  first  throw  also 
contained  e  two,  the  token  could  be  moved  Into  Che 
two.  After  bos  one,  ployers  can  either  take  the  pip 
shown  on  on  individual  die  for  a  wove,  or  can  add 
together  the  pips  showing  to  get  s  desired  number.  A 
variation  of  thle  gome  (often  colled  EVEREST)  is  to 
'cliob  down*  through  thB  numbers,  after  one  through 
to  12  hee  been  achieved.  The  winner  or  EVERE9T  ie 
the  first  player  getting  bock  to  bass  camp  on  one. 

INDIAN  DICE:  This  gome  Is  similar  to  POKER  DICE  and 
is  ployed  with  five  dice.  The  elm  is  simply  to  get 
the  best  possible  'poker  hands'.  There  1b  no 
provision  for  getting  additional  'cords'  In  one 
deal.  You  throw  the  five  dice  et  once,  end  that  Ie 
your  hand.  The  ranking  of  the  hands  Is  as  foLlows 
(with  six  highest  and  ones  wild): 

-  t-Lvi  Bi  a  kind 

-  o ^  a  kind 

-  kouie  I  Ckxa  ci  a  kind  pin- A  a  paint 

-  tuff  pa.in.4 

-  one.  pain 

-  highest  die 
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BIDOU:  This  gone  is  nice  oimiUr  to  POKER  DICE, 
however,  you  elm  to  gat  rid  of  all  your  chips, 
rather  than  win  them.  The  winner  of  the  gams  la, 
paradoxically,  the  person  who  he*  lost  the  moat 
rounds.  You  need  three  dice  for  this  game,  end  e 
supply  of  chi  pa  which  are  distributed  equally 
between  the  two  pLeyere.  A  bet  la  madar  end 


mat  cited 

1 

before 

the 

plwyar# 

taka 

1  t 

1  n 

tu  rns 

threw 

th« 

three 

dice 

* 

The 

throws 

a  re 

ranked 

follows 

1 

with  ’winning 

throws ' 

coming 

first: 

Z 

1 

U 

2  2 

it 

4 

Z 

u 

6 

6  6;  5 

5 

5; 

4  4  4: 

J 

3 

3; 

2  2 

2 1 

1 

i 

it 

3 

3  6;  J 

3 

5 ; 

3  3  4: 

5 

5 

2; 

3  3 

1; 

J 

I 

6 ; 

1 

1  5;  f 

I 

4 ; 

1  1  3; 

3 

i 

U 

4  3 

2 1 

S 

4 

S ; 

6 

S  4 

If  the  combination  thrown  1b  not  In  tha  Mat,  the 
pipe  are  added*  with  the  highest  total  winning. 

BARBOQTH:  Also  known  oe  BAflBUDI i  thie  gem*  la 
played  with  two  dice,  end  features  winning  and 
losing  throws.  It  la  suggested  you  start  with  e  bank 
of  30  ch1p6,  end  give  both  players  a  starting  stake 
of  15  chips  each,  charging  two  chips  per  player  per 
round.  The  players  take  It  In  turns  to  throw  the 
dice.  Winning  throwe  are  3  3;  55;  6  5;  end  6 
8. Losing  throws  ore  1  1;  2  2;  2  1  ond  4  4,  If  the 
players  both  get  winning  throws,  thn  one  c  to 
the  start  of  the  list  wins  (that  Is,  331s  better 
then  8  6).  If  both  throw  the  saae  winning  throw, 
the  bank  gets  the  money.  If  one  player  thrown  e 
combination  which  la  not  o  winning  one  nor  e  losing 
one,  and  tha  cither  throne  a  losing  throw,  the 
loser’s  chips  go  Into  the  bgnk,  and  tha  other  plwyar 
retains  his  or  her  chips. 

if  one  player  throwa  a  winning  throw,  and  the  othor 
e  non-ranking  combination,  the  winner  gate  him  owr 
chips  beck,  as  wall  as  those  bet  by  tha  loser.  If, 
however,  one  player  throws  a  winning  combination, 
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and  the  other  e  losing  combination,  the  bank  con¬ 
tributes  the  sane  number  of  chips  as  have  been  bet 
in  total.  The  game  continues  until  either  player,  or 
the  bank,  rune  out  of  chips.  The  pleyer  holding  the 
aaxieum  number  of  chipa  et  this  point  nine.  Note 
that  this  way  of  distributing  the  wins  and  lessee  is 
not  the  same  as  BARBOOTH  when  played  es  e  'prof¬ 
essional*  gambLing  gome,  but  ie  e  pay-off  scheoa 
which  la  relatively  easy  to  computeri es,  and  makes 
for  an  intereetlng  gene. 

FIVE  THOUSAND:  There  are  no  prizes  for  guesBlng  that 
the  first  player  to  Bcoro  over  5000  points  In  this 
game  is  the  winner.  Played  with  os  nany  playera  as 
you  Like,  all  you'll  need  in  the  way  of  gama 
equipment  ie  five  six— elded  dice.  Each  player  takes 
It  in  turn  to  throw  the  ftva  dice,  and  scoring  Ie 
carried  out  in  the  following  way: 

-  a  5  4.4  month  100 

-  a  Z  14  month  50 

-  th/ tee  5*  *  thnomn  tn  out,  go  ant  month  1000 

-  thnee  1*4  thrown  In  a  go  4C0ne  500 

-  tknee  a  1apa.it  1‘4  and  5 ‘4. 

a**  month  100  time*  tkein  vd-Lun  (that  14 
thnee  1*4  ant  month  100  po4nt4,  and  tknee 
6* i  arc  month  600 

-  the  4tquence  I,  l,  5,  4  and  $  44  thnomn 
In  a  44ngLt  go.  th44  4 Cont4  1500 

-  I,  5,  4,  5  and  6  tn  one  tknow  ant  month 
1000  potnt4 

Note  that  4'e  end  6'a  do  not  score  in  this  game, 
except  SB  pert  of  o  sequence.  Once  you've  thrown, 
you  cen  —  If  you  like  —  throw  the  non-scoring  dice 
again.  However,  if  the  next  throw  gains  no  score, 
the  turn  ends,  end  the  ovorell  score  for  the  throw 
la  zero.  So  long  as  b  scoring  throw  hes  been  wade, 
any  dice  'left  over'  cen  be  thrown. 

The  gene  rewards  the  alow  Bud  careful  player  with  e 
reasonable  score,  but  gives  hiw  or  her  no  chance 
against  s  pleyer  who  dwcldes  to  taka  a  chnnen  and 
try  to  get  a  maneive  score  In  s  single  throw. 
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CARD  GAMES;  Once  you've  worked  out  a  routine  to  get 
the  computer  bold,  shuffle  and  (feel  the  cards  tenu 
such  «  routine  le  In  my  vsrsfon  of  Concentration  in 
this  book]  you  have  the  rev  hones  of  a  host  on 
games.  Any  book  of  card  games  will  give  you  »ore 
ideas  thin  you  can  poeelbly  cope  with*  Here  are  o 
few  to  atsrt  you  off; 

TRENTE  AND  QUARANTE:  This  gene,  which  originated  in 
17th  century  Europe,  fa  also  known  as  ROUGE  ET  NDIR* 
Six  decks  of  cords  are  used  in  the  cesino  version, 
but  it  marks  well  with  e  elngls  deck.  The  cards  are 
dealt  Into  two  rows,  with  tha  total  of  eooh  row 
being  examined  after  each  row  has  had  an  additional 
card.  Court  cords  [jack,  quean,  king)  count  bb  tan, 
with  all  ether  cords  (Including  the  ace)  counting  as 
thalr*  face  value.  The  moment  the  total  of  a  row 
©quale  or  exceeds  31,  no  more  cards  are  added  to 
that  row.  However,  the  dealer  keep?  adding  to  the 
other  roa  until  1tr  too.  equals  Dr  exceeds  31.  The 
first  row  la  called  'black1,  regardless  of  the  aults 
of  the  cards  Involved,  and  the  second  row  is  'rad1. 

You  can  bat  that,  at  the  end,  ths  red  row  or  the 
black  row  total  will  ha  closer  to  31.  You  can  also 
bet  that  thi  colour  of  tha  first  card  to  ba  dealt 
will  natch  the  Colour  name  of  the  winning  roa.  All 
bote  are  aede  against  the  bank,  and  winners  receive 
thalr  bat  back,  plua  that  amount  again  [odds  of  one 
to  one] .  If  both  rows  equal  31,  thi  bank  takes  half 
the  Stake  and  returns  tha  rest  to  tha  pLayor. 

CARD  GRAFS;  This  game  mac  devised  to  get  around  In* 
paaead  by  eo>me  US  States  which  outlawed  craps  played 
with  dfca.  You  u&o  o  special  dock  of  40  curds,  made 
up  from  tha  eoes.  2 1  a ,  3  *  a  r  4fea  fi'i  and  6'e,  from 
two  decks  of  card*.  Tha  game  folLowt  the  standard 
rules  of  crops  [which  ere  similar  to  those  usad  In 
the  game  SEVEN/ELEVEN  In  this  book). 
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In  Its  ninpliflnd  form,  without  the  sonowhet  complex 
batting  combinations  ,  you  play  ee  follows: 

-  a  total  of  2,  3  or  12  Is  'craps'  and  the 
dealer  loett,  passing  the  cards  to  the  next  player 
to  deal 

-  a  total  of  7  or  11  Is  a  ’natural*  and  the 
dealer  wine 

-  any  other  nuaber  (4,  5,  6,  R ,  9  or  IQ!  is  the 
pleyer'e  'point*  and  he  or  aha  suet  continue  dtiling 
in  pairs  until  the  point  Is  dealt  again,  at  which 
point  the  dealer  wins.  However  If  e  7  is  dealt 
before  the  point  is  obtained,  the  dealer  loses 

THREE  CARD  BRAG:  This  gene  was  tha  forerunner  of 
poker,  and  as  ite  nano  suggests,  it  is  played  with 
hands  of  three,  rather  then  five,  cards.  Here  are 
the  winning  eonb i no 1 1  on b ,  ranked  frow  highest  to 
lowest : 


-  'ptyio',  tkAit  04  a.  Mud 

-  *ew  a  bit*.’ .  tkl*t  In  44$U4wCC  tfu  lamt 

4U.lt 

-  **«*’,  thm  cai dd  In  4 Jtqutnct 

-  •  iltuh’ ,  tkut  ca* d4  44ow  -the  4amt  4uit 

-  'pal*',  tuc  44  a  kind 

-  'JUgft  caJtd* 

A  normal  deck  Is  used,  and  aces  rank  high,  except 
for  'on  b  bike1  and  ' run' ,  when  3,  2,  ace  beatc  ace, 
king,  queen.  You  can  vary  the  gene  by  waking  It 
SEVEN  CARD  BRAS,  in  which  the  players  aplit  their 
seven  cards  Into  two  three^card  hands  of  their 
choice,  or  NINE  CARD  BRAS,  when  three  cordi  ere 
crested. 

ACE-DEUCE-JACK ;  This  1e  a  simple  gone,  heavily 
loaded  In  the  dealwr'a  favor,  In  which  ptaywre  bet 
on  the  likelihood  that  the  next  card  which  appears 
will  be  an  eoe,  e  two  (a  'douce')  or  a  Jack. 
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PUT  AND  TAKE:  This  gtntllng  gaa«  usee  an  eight-aided 
top,  which  fa  spun.  Tha  conn  begins  with  ell  plBywre 
have  10  chips,  with  3D  in  the  pat.  The  pLeyers  take 
it  in  turn  to  spin  the  top,  and  --  obeying  the 
Instructions  which  cone  up  an  the  top  —  put  chips 
into  the  pot,  or  take  then  out.  A  player  is  out  whan 
ho  or  she  rune  out  of  chips*  and  the  gone  ends  ohen 
the  pot  is  empty,  The  instructions  written  on  the 
aideB  of  the  top  are: 

-  put  owe 

-  TAKE  ONE 

-  PUT  THREE 

-  TAKE  THREE 

-  PU7  FOUR 

-  TAKE  FOUR 

-  PUT  AIL 

-  TAKE  ALL 

BGULE:  This  is  b  simplified  form  of  roulette  which 

appeared  in  the  18th  century*  It  1b  often  found  In 
European  casinos.  Tha  wheel  is  divided  Into  18 
segments,  numbered  from  one  to  nine. . . twl oe.  You  can 
bet  on  the  winning  nuwber,  whether  it  trill  be  o  red 
or  a  black  nueber,  even  or  odd,  high  or  Low.  Except 
for  the  fives  on  the  wheel*  which  era  uaueLty 
yellow,  tha  rede  and  blocks  alternate,  so  the!  there 
Is,  for  axonplo,  b  red  eix  end  a  block  six,  a  red 
nine  and  a  black  nine,  and  oo  on.  A  'high*  nuwber 
is  above  five,  while  ’low"  numbers  era  below  it.  If 
you  bet  successfully  on  e  single  nuwber,  you'lk.  be 
paid  at  seven  to  one,  with  a  one  to  one  return  on 
the  'characteristic1  of  a  nunber  [such  as  it  being 
' high '  or  ' odd ' 1  . 
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BOOKS  TO  READ 

As  you've  probably  guthgrnd  by  reading  through  chit 
book,  1  nake  a  point  of  rsnding  any  book  on  games  I 
con  got  ny  hand  on.  It  doesn't  matter  whether  the 
book  is  about  computer  ganas  or  the  a Ld- f ae h f one d 
'play  against  another  human'  type.  So  long  as  it  is 
a  book  of  gonee,  I  want  to  see  ft. 

Genes  books  are  superb  as  idea-atarcars,  Read  about 
a  gone  and  you've  got  the  Bead  of  a  prog  ran.  And  It 
doesn't  natter  if  thB  program  doesn't  and  up  playing 
precisely  the  earns  you  rBsd  about.  Many  greet  compu¬ 
ter  genes  started  their  Lives  ea  an  attenpt  to 
computerise  a  more  traditional  gems,  and  eomaho*  got 
aide-tracked. 

I  hope  soma  of  the  following  list  of  books  prove  es 
valuable  to  you  as  they  have  to  me. 

•DISCOVERING  OLD  BOARO  GAMES  -  R  C  8s l l  [Shire  Pub¬ 
lications,  Aylesbury,  UK ,  19B0] 

•DISCOVERING  DICE  AND  DOMINOES  -  R  C  Bell  (Shire 
Publications,  Aylesbury,  UK,  I960] 

•OICE  GAMES  NEW  AND  OLD  -  William  E  IrBdd  (The 
Oleander  Press,  London  and  Non  fork,  1 961 t 

•GAME  PLAYING  WITH  BASIC  -  Donald  D  Spencer  [Hayden 
Book  Co.,  Inc.,  Rochotla  Park,  Now  Jercoy,  1977) 

•GAMES  ANCIENT  AND  ORIENTAL  AND  MOW  TO  PLAY  THEM  - 
Edward  FsLkenar  [Davor  Publications,  Ine,,  N«i  York, 
1901  -  a  reprint  of  an  original  work  published  by 

Longmans,  Green  and  Co.  In  1892] 

•BASIC  COMPUTER  GAMES  -  Ed.  David  H  Ahl  (Creative 
Computing  Press,  Morristown,  New  Jersey,  1979) 

•HOPE  BASIC  COMPUTER  GAMES  -  Ed.  David  H  Ahl 
ICreBtive  Computing  Press,  Morristown,  New  Jersey, 
1979) 
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*se  BASIC  PROGRAMS  FOR  YOUR  MICRO  -  Derrick  Dainel 
(Nemnas  Technical  Books ,  Buttarearthe  £  Co.,  London 
and  Boaton,  IBB?) 

•TABLE  GAMES  OF  GE0R6IAN  AND  VICTORIAN  DAYS  -  F  R  B 
WhttahDuao  [Priory  Press,  Royston,  Herts.,  UK,  1971) 

•PET  FUN  AND  GAMES  -  Ron  Jeffries  and  Glen  Fisher 
lOeborne/HDGrae-H I U ,  Berkeley,  California,  19B1) 

•COMPUTER  GAMES  FOR  BUSINESSES,  SCHOOLS  AND  HONES  - 
J  Victor  Nehiglen  and  William  S  Hodge*  (Winthrop 
Publishers,  Inc.,  Cambridge,  Meesachuaetts,  1979) 

•GAMES  YOU  MAKE  AND  PLAY  -  Pio  Hsiao,  Mail  Lorfmer 
and  Hick  Williams  (Macdonald  and  Jim'a,  London, 
1975) 

•WHAT  TO  DO  AFTER  YOU  HIT  RETURN  -  People ‘a 
Computer  Company  [Hayden  Book  Co.,  Inc,,  Rochelle 
Perk,  Nee  Jersey,  1980) 

•EVERYMAN'S  IMOOQR  GAMES  -  Gyles  Brendreth  (Dent, 
Evoryaen't  Library,  London,  Melbourne  and  Toronto, 
1992) 

•A  PLAYER'S  GUIDE  TO  TABLE  BANES  -  John  Jackson 
(Steckpole  Booka,  Harrisburg,  Penney  Ivan  1  a ,  1975) 

•BAHES  FOR  TWO  -  John  Wesley  IProteua,  London  and 
Nea  York,  19B1) 

•THE  ADO I SOM- WESLEY  BOOK  OF  APPLE  COMPUTER  SOFTWARE 
1982  -  Jeffrey  Stanton  and  John  Dickey,  editors  (The 
Book  Company,  Lawndale,  California,  190?) 

•DICING  WITH  ORAGONS  -  len  Livingetone  (Pout  ledge 
&  Kogan  Paul,  London,  Melbourne  and  Henley,  1982) 

•FANTASY  ROLE  PLAYING  GAMES  -  J  Eric  Holmes  (Hippo- 
crane  Books  Inc.,  Na«  York,  19B1) 
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Hsra'ts  a  hoBt  of  grant  programs,  just  waiting  to  b® 
typsd  into  your  Dick  Swi  th  VZ2D0  Personal 
colour  Computer .  No  matter  aha  t  kind  of  games  you're 
Interested  in,  you’ll;  find  then  here,  to  entertain 
you  in  the  weeks  and  month®  ahead.  Now  you  can  tike 
full  advantage  or  the  colour,  sound  end  memory 
available  on  the  V22Q0  to  build  yourself  a  library 
of  worthwhile  und  challenging  genes  programs. 

Tim  Hartnell  want  to  London  from  Malbourna  In  1977 
to  work  on  the  Australasian  Express  newspaper.  While 
In  London,  ha  wrote  hie  first  computer  book*  which 
proved  immediately  successful.  He  has  now  written 
mora  then  3d  books  on  m 1 croeomputora f  and  brings  the 
experience  gained  fro*  the  hooks  together  in 

this  ultimate  genet  book  for  your  VZSOG, 

Tin  was  joined  In  the  writing  of  this  book  h  y  Glen 
Pringle,  a  schoolboy  from  L 1 1  y  d  e  L  a ,  Victor  i  a  who 
conplcted  hie  najgr  contributions  fcp  the  work  a  week 
before  hie  fourteenth  birthday.  Glen  intends  to 
*ake  his  curcer  In  computing,  probably  a®  a 

prograimer .  Ae  wull  as  being  Interested  In 

computers*  Gian  roads  a  lot  [mostly  war  books]  and 
1b  interested  In  International  cricket. 

fouf 11  find  much  to  entertain  you  in  this  volume, 
including  board  flames  such  as  GOMO&U  and  CHECKERS . 
As  wnll,  there  are  two  adventure  programs: 

STRONGHOLD  OF  THE  OWARVEN  LOROS  and 

THE  DUKE  OF  ORAGONFEAR ,  You  con  tike  part  Sn 
siflu lotion  programs  like  MISTRESS  OF  XENOPHOBIA  or 
run  a  company  in  CHAIRMAN  OF  THE  BOARD.  There  1b  a 
generous  selection  of  dice  Quaes,  such  nr>  ONE  AND 
TNENTY  and  CHEMIN  BE  COMPUTER. 

If  you’re  looking  for  raw  enter  tai  mannfc  f  jump  riflht 
Into  ROBOT  MINEFIELD  and  INNER  SPRING.  Gut  In  apace, 
your  V220Q  is  waiting  to  entertain  you  with 

NGOMLAMOER  Bnd  HYPER WAR , 

This  Is  a  just  a  Qnripla  of  the  action  waiting  for 
you  In  th  1  b  graat  book  by  Glen  end  Tin.  Come 
on  In,  the  games  nro  fine! 


